Extra primes: Difference between revisions
Frink
(Frink) |
|||
Line 1,119:
7723
7727</pre>
=={{header|Frink}}==
<lang frink>select[primes[2,10000], {|n| isPrime[n] and isPrime[sum[integerDigits[n]]] and isSubset[toSet[integerDigits[n]], new set[2,3,5,7]]}]</lang>
{{out}}
<pre>
[2, 3, 5, 7, 23, 223, 227, 337, 353, 373, 557, 577, 733, 757, 773, 2333, 2357, 2377, 2557, 2753, 2777, 3253, 3257, 3323, 3527, 3727, 5233, 5237, 5273, 5323, 5527, 7237, 7253, 7523, 7723, 7727]
</pre>
=={{header|Go}}==
| |||