Extra primes: Difference between revisions
Content added Content deleted
(Frink) |
|||
Line 1,121: | Line 1,121: | ||
=={{header|Frink}}== |
=={{header|Frink}}== |
||
<lang frink>select[primes[2,10000], {|n| |
<lang frink>select[primes[2,10000], {|n| isPrime[sum[integerDigits[n]]] and isSubset[toSet[integerDigits[n]], new set[2,3,5,7]]}]</lang> |
||
{{out}} |
{{out}} |
||
<pre> |
<pre> |