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