uses crt;
var Q,p,i:integer;
function dao(n:integer):integer;
var s,s2:string;
code,i:integer;
begin
str(n,s);
s2:='';
for i:=length(s) downto 1 do
 s2:=s2+s[i];
val(s2,dao,code);
end;
function kt(n:integer):boolean;
var s,s2:string;
i,d:integer;
begin
n:=dao(n);
d:=0;
for i:=1 to n do
 if n mod i=0 then d:=d+1;
if d=2 then exit(true) else exit(false);
end;
begin
clrscr;
readln(p,Q);
for i:=p to Q do
 if kt(i)=true then writeln(i);
readln;
end.

uses crt;
var m,n,i:longint;
function DN(a:longint):longint;
var c:longint;
        begin
         c:=a;
         DN:=0;
         while c<>0 do
                begin
                 DN:=DN*10+c mod 10;
                 c:=c div 10;
                end;
        end;
function NT(a:longint):boolean;
var dem,i:longint;
        begin
         dem:=0;
         for i:=1 to n do if(n mod i=0)then inc(dem);
         NT:=dem=2;
        end;
begin
 clrscr;
  readln(m,n);
  for i:=m to n do if(NT(DN(i)))then writeln(i);
 readln;
end.