program bestanhvan;
uses crt;
var p,q,s,i,j,k  :integer;
sodaonguoc,so:string;
    function snt(a:integer):boolean;
    var i:integer;
    begin
        if a<2 then exit(false);
        for i:=2 to a-1 do
        if a mod i = 0 then exit(false);
        exit(true);
    end;
    begin
        write('nhap P: ');readln(p);
        write('nhap Q: ');readln(q);
        for i:=p to q do
            begin
            j:=i;
            while j<>0 do
                begin   
                    s:=j mod 10;
                    j:=j div 10;
                    str(s,so);
                    sodaonguoc:=sodaonguoc+so;
                end;
                val(sodaonguoc,k);
                if snt(k) then writeln(i);
                sodaonguoc:='';
            end;
        readln;
        end.

uses crt;
var p,q,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.