program PROSTI;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var i,j,k,n:integer;
 A:array [0..40000] of integer;
 v1,v2:text;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 assign (v1,'PROSTI.sol');
 assign (v2 ,'SYPER.sol');
 rewrite (v1);
 for i:=2 to 10000 do
 begin
  k:=0;
  for j:=1 to A[0] do
  if i mod A[j] =0 then inc (k);
  if k=0 then begin inc (A[0]); A[A[0]]:=i; writeln (v1,i); end;
 end;
 close (v1);
 rewrite (v2);
 for i:=1 to A[0] do
 begin
  n:=A[i];
  k:=0;
  while n>9 do
  begin
   k:=k+n mod 10;
   n:=n div 10;
  end;
  k:=k+n;
  j:=1;
  while (k>=A[j]) and (j<A[0]) do
  begin
   if k=A[j] then writeln (v2,A[i]);
   inc (j);
  end;


 end;
 close (v2);
end.