Additive primes: Difference between revisions
→{{header|Frink}}
(Frink updated to solve optional task.) |
|||
Line 1,648:
<lang frink>vals = toArray[select[primes[2, 500], {|x| isPrime[sum[integerDigits[x]]]}]]
println[formatTable[columnize[vals, 10]]]
println["\n" + length[vals] + " values found."]</lang>
{{out}}
<pre>
Line 1,657:
353 359 373 379 397 401 409 421 443 449
461 463 467 487
54 values found.
</pre>
| |||