uses crt;
var i,a,b:longint;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
function tong(a:longint):longint;
begin
   tong:=0;
   repeat
      inc(tong,a mod 10);
      a:=a div 10;
   until a=0;
end;
begin
clrscr;
   readln(a,b);
   for i:=a to b do 
      if (nt(i))and(nt(tong(i))) then write(i,' ');
readln
end.

uses crt;
var i,a,b:longint;
{---Ham-hoan-hao---}
function hh(r:longint):boolean;
var i:longint;
begin
   hh:=true;
   if r<2 then exit(false);
   for i:=2 to trunc(sqrt(r)) do
      if r mod i=0 then exit(false);
   hh:=true;
end;
{---Kiem-tra-chu-so---}
function s(r:longint):longint;
begin
   s:=0;
   while r<>0 do 
      begin
         s:=s+(r mod 10);
         r:=r div 10;
      end;
end;
{---Chuong-trinh-chinh---}
begin
   clrscr;
   readln(a,b);
   for i:=a to b do if (hh(i)) and (hh(s(i))) then write(i,' ');
   readln
end.