var n,i,j,k,l:integer;
begin
  readln(n);l:=1;
  write(2,' ');{1不算,2要特别处理}
  for i:=3 to n do 
    begin
      k:=1;
      for j:=2 to trunc(sqrt(i)) do 
        if i mod j=0 then 
          begin
            k:=0;break;
          end;
      if k=1 then 
        begin
          l:=l+1;write(i,' ');
          if l mod 5=0 then writeln;
        end;
    end;
end.

谢谢![em12]