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.