Erdős-primes: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
|||
Line 759: | Line 759: | ||
The 7875th Erdős prime is 999,721 |
The 7875th Erdős prime is 999,721 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[ErdosPrimeQ] |
|||
ErdosPrimeQ[p_Integer] := Module[{k}, |
|||
If[PrimeQ[p], |
|||
k = 1; |
|||
While[k! < p, |
|||
If[PrimeQ[p - k!], Return[False]]; |
|||
k++; |
|||
]; |
|||
True |
|||
, |
|||
False |
|||
] |
|||
] |
|||
sel = Select[Range[2500], ErdosPrimeQ] |
|||
Length[sel] |
|||
sel = Select[Range[999999], ErdosPrimeQ]; |
|||
{Length[sel], Last[sel]}</lang> |
|||
{{out}} |
|||
<pre>{2, 101, 211, 367, 409, 419, 461, 557, 673, 709, 769, 937, 967, 1009, 1201, 1259, 1709, 1831, 1889, 2141, 2221, 2309, 2351, 2411, 2437} |
|||
25 |
|||
{7875, 999721}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |