10 lines
190 B
Text
10 lines
190 B
Text
500 eratosthenes
|
|
|
|
[]
|
|
500 times
|
|
[ i^ isprime if
|
|
[ i^ 10 digitsum
|
|
isprime if
|
|
[ i^ join ] ] ]
|
|
dup echo cr cr
|
|
size echo say " additive primes found."
|