uses crt;
var s,i,sl:longint;
function kt(s:longint):boolean;
var i:longint;
begin
 if s<2 then kt:=false else kt:=true;
 for i:=2 to trunc(sqrt(s)) do 
  if s mod i = 0 then
   begin
    kt:=false;
    break;  
   end;
end;
begin
 clrscr;
 write('nhap n: '); readln(s);
 write('cac so nguyen to be hon hoac bang ',s,' la: ');
 for i := 1 to s do 
  if kt(i) = true then 
   begin
    write(i:4);
    inc(sl);
   end;
 writeln;
 write('co ',sl,' so nguyen to be hon hoac bang ',s);
end.

uses crt;
 var n,i ,d: longint ;
function ktngto(n:longint):boolean;
var i:longint;
begin
  if n<2 then ktngto:=false else ktngto:=true;
  for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then
    begin
      ktngto:=false;
           break;  
      end ;
      end;
begin
 clrscr ;
 readln(n);
for i := 1 to n do 
  if ktngto(i)= true then 
    begin
    write(i,' ');
    inc(d);
    end ;
writeln ;
write(d)
end.