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())
)$