Cousin primes: Difference between revisions
Content added Content deleted
(Added Forth solution) |
|||
Line 1,256: | Line 1,256: | ||
967: 971 |
967: 971 |
||
TOTAL COUSINS: 41</pre> |
TOTAL COUSINS: 41</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>primes = Prime@Range[PrimePi[1000] - 1]; |
|||
primes = {primes, primes + 4} // Transpose; |
|||
Select[primes, AllTrue[PrimeQ]] |
|||
Length[%]</lang> |
|||
{{out}} |
|||
<pre>{{3,7},{7,11},{13,17},{19,23},{37,41},{43,47},{67,71},{79,83},{97,101},{103,107},{109,113},{127,131},{163,167},{193,197},{223,227},{229,233},{277,281},{307,311},{313,317},{349,353},{379,383},{397,401},{439,443},{457,461},{463,467},{487,491},{499,503},{613,617},{643,647},{673,677},{739,743},{757,761},{769,773},{823,827},{853,857},{859,863},{877,881},{883,887},{907,911},{937,941},{967,971}} |
|||
41</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |