Neighbour primes: Difference between revisions
→{{header|Nim}}
(→{{header|jq}}: efficiency) |
|||
Line 476:
println(filter(isneiprime, primes(500)))
</lang>{{out}}<pre>[3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487]</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>p = Prime@Range@PrimePi[499];
Select[p, PrimeQ[# NextPrime[#] + 2] &]</lang>
{{out}}
<pre>{3, 5, 7, 13, 19, 67, 149, 179, 229, 239, 241, 269, 277, 307, 313, 397, 401, 419, 439, 487}</pre>
=={{header|Nim}}==
| |||