Sieve of Eratosthenes: Difference between revisions

% which correspond to 3 5 7 9 11 13 15 17 19 21 23 25 27... %

for i := 1 until truncate( sqrt( n ) ) do begin

if s( i ) then begin

integer ip;