program sieu_nguyen_to;
uses crt;
var n,i:integer;
{---Chuong trinh-nguyen-to---}
function ktnt(k:integer):boolean;
var r:integer;
begin
ktnt:=false;
if k<2 then exit;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit;
exit(true);
end;
{---Chuong-trinh-sieu-nguyen-to---}
function ktsnt(x:integer):boolean;
begin
ktsnt:=false;
while x>0 do
begin
if ktnt(x)=false then exit;
x:=x div 10;
end;
exit(true);
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap gia tri n: '); readln(n);
for i:=1 to n do if ktsnt(i) then write(i,' ');
readln;
end.