Neighbour primes: Difference between revisions
Content added Content deleted
(→{{header|jq}}: efficiency) |
|||
Line 476: | Line 476: | ||
println(filter(isneiprime, primes(500))) |
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> |
</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}}== |
=={{header|Nim}}== |