[top]
primes =. [:(#~2:=[:+/0:=|/~)>:&i.
sieve=. 3 : 0 r=. y.^0.5 s=. -.y.{.1 p=. 0 while. r>:p=. p+>:(p}.s)i.1 do. s=. 0 (<:}.p*>:i.<.y.%p)}s end. >:s#i.y. )