program qq;
var n,m,k: integer;
begin
for n:=2 to 1000 do begin
m:=0;
for k:=2 to n-1 do begin
if n mod k=0 then
m:=m+1;
if m=0 then
writeln(n);
end;
end;
end.