program asd;

function pierwsza(n : longint) : boolean;
var
i:longint;
begin

if n<=1 then
 pierwsza:=False
else begin
 i:=2;
 while (n mod i)<>0 do Inc(i);
 pierwsza:=(i=n);
end;

end;

function suma(w:longint) : longint;

var
r,m,n,z,b:longint;

begin
b:=0;
m:=1;

repeat
 n:=m;
 m:=m*10;
 r:=w mod m;
 w:=w-r;
 z:=r div n;
 b:=b+z;
until w=0;

suma:=b;
end;

{MAIN BODY}

var
p,q,i:longint;

begin
writeln('poczatek przedzialu');
readln(p);
writeln('koniec przedzialu');
readln(q);

for i:=p to q do
begin
 if pierwsza(i)=TRUE then
 begin
 if pierwsza(suma(i))=TRUE then writeln(i);
 end;


end;

readln;
end.