3 lines
225 B
Text
3 lines
225 B
Text
function sp(integer n) return is_prime(sum(get_primes(-n))) end function
|
|
sequence res = apply(filter(tagset(length(get_primes_le(1000))),sp),sprint)
|
|
printf(1,"Found %d of em: %s\n",{length(res),join(shorten(res,"",5),", ")})
|