Program pag57_29;
var n,i,j:integer;
    a:array[2..10000] of 0..1;
begin
Writeln(#$D#$A'Introdu un nr intreg pozitiv!');Readln(n);
for i:=2 to n do a[i]:=1;
for i:=2 to n do for j:=i+1 to n do if (a[i]=1)and(j mod i=0)then a[j]:=0;
for i:=2 to n do if a[i]=1 then write(i:5);
readln;
end.