program in_nguyen_to;
uses crt;
var n,i:integer;
{---Ham-nguyen-to---}
function ktnt(k:integer):boolean;
var e:integer;
begin
ktnt:=false;
if k<2 then exit;
for e:=2 to trunc(sqrt(k)) do
if k mod e=0 then exit;
ktnt:=true;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if ktnt(i) then write(i,' ');
readln;
end.