var v:array[1..2000000] of byte;
    n,i,j,k:longint;
begin
assign(input,'ciur.in'); reset(input);
assign(output,'ciur.out'); rewrite(output);
read(n);
for i:=2 to trunc(sqrt(n)) do
 if v[i]=0 then begin for j:=2 to n div i do begin v[i*j]:=1;
 j:=0;
 writeln(k);
for i:=n downto 2 do
if v[i]=0 then begin
inc(j); k:=i;
if j=100 then break;
end;
writeln(j);
for i:=k to n do if v[i]=0 then write(i,' ');
close(input); close(output);
end.