4 lines
167 B
Text
4 lines
167 B
Text
|
vals = toArray[select[primes[2, 500], {|x| isPrime[sum[integerDigits[x]]]}]]
|
||
|
|
println[formatTable[columnize[vals, 10]]]
|
||
|
|
println["\n" + length[vals] + " values found."]
|