Program n1;var k,n,i: longint;co: byte;function simply(a: longint ):boolean;var i: longint;beginsimply:=true;for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then beginsimply:=false;breakendendend;function cr(a: longint): boolean;var n: longint; begin n:=a;cr:=false;repeat n:=n div 10; until n mod 10 =n;if n=(a mod 10) then begincr:=true;end;end;beginreadln(k,n);for i:=k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) thenbeginwrite(i,' ');co:=1;endend;if co=0 then write(0);end.