8 lines
179 B
Text
8 lines
179 B
Text
p: primes(2, 999)$
|
|
|
|
primesum(x) := apply("+", firstn(p, x))$
|
|
|
|
for i from 1 thru length(p) do(
|
|
ps: primesum(i),
|
|
if primep(ps) then block(sprint(i, p[i], ps), newline())
|
|
)$
|