uses crt;
var m,n,i:longint;

function dx(n:longint):boolean;
var i:byte;
    s:string;
begin
    str(n,s);
    for i:=1 to length(s) do
        if s[i]<>s[length(s)-i+1] then exit(false);
    exit(true);
end;

function prime(n:longint):boolean;
var i:longint;
begin
    if n<2 then exit(false);
    for i:=2 to trunc(sqrt(n)) do
        if n mod i=0 then exit(false);
    exit(true);
end;

begin
clrscr;
    read(m,n); readln;
    for i:=m to n do
        if(prime(i))and(dx(i)) then write(i,' ');
readln;
end.

uses crt;
var i,m,n:qword;
function nt(a:qword):boolean;
var i:longint;
begin
   nt:=true;
   for i:=2 to trunc(sqrt(a)) do 
      if a mod i=0 then nt:=false;
end;
function dx(a:qword):qword;
begin
   dx:=0;
   repeat
      dx:=dx*10+(a mod 10);
      a:=a div 10;
   until a=0;
end;
begin
clrscr;
   readln(m,n);
   i:=m;
   while i<=n do 
      begin 
         if ((i=2)or(i mod 2<>0)or(i mod 3<>0)or(i=3)or(i mod 5<>0)or(i=5))and(dx(i)=i)and(nt(i)) then 
            write(i,' ');
         inc(i);
      end;
readln
end.