var i,n,m,max:longword;
    f:text;
function ngto(n:longword):boolean;
var i:longword;
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;
function sum(n:longword):word;
var t:word;
begin
    t:=0;
    while n<>0 do
       begin
          t:=t+(n mod 10);
          n:=n div 10;
       end;
    sum:=t;
end;
begin
    assign(f,'D:\snt.out');rewrite(f);
    readln(n,m);
    writeln(f,n,' ',m);
    max:=0;
    for i:=n to m do
        begin
            if ngto(i)=true then
                begin
                    write(f,i,' ');
                    if sum(max)<sum(i) then
                       max:=i;
                end;
        end;
    write(f,#13#10,max);
    close(f);
end.

uses crt;
var f:text; i,n,m,max: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(n,m);
   assign(f,'output.pas');rewrite(f);
      writeln(f,n,' ',m);
      for i:=n to m do  
         if nt(i) then
            begin
               write(f,i,' ');  
               if tong(i)>tong(max) then max:=i;
            end; 
      writeln(f);
      writeln(f,max);
   close(f); 
end.