Pagini recente » Diferente pentru utilizator/alexclp intre reviziile 3 si 2 | Diferente pentru problema/armonioase intre reviziile 74 si 75 | Cod sursa (job #2821630) | Rating Petronel Catalin Joldescu (Broke) | Cod sursa (job #146954)
Cod sursa(job #146954)
var v:array [1..2000000] of integer;
n,i,j,k:longint;
begin
assign(input,'ciur.in'); reset(input);
assign(output,'ciur.out'); rewrite(output);
readln(n);
for i:=2 to n do
if v[i]=0 then begin
inc(k);
for j:=2 to n div i do v[i*j]:=1;
end;
writeln(k); j:=0; k:=k-1000;
for i:=2 to n do begin
inc(j);
if (v[i]=0) and (j>=k) then write(i,' ');
end;
close(input); close(output);
end.