Next special primes: Difference between revisions
Content added Content deleted
(Next special primes en Python) |
|||
| Line 709: | Line 709: | ||
967 1049 82 |
967 1049 82 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>max = 1050; |
|||
n = {2, 3}; |
|||
Do[ |
|||
If[PrimeQ[i], |
|||
lastdiff = n[[-1]] - n[[-2]]; |
|||
If[i - n[[-1]] > lastdiff, |
|||
AppendTo[n, i] |
|||
] |
|||
] |
|||
, |
|||
{i, Max[n] + 1, max} |
|||
] |
|||
n</lang> |
|||
{{out}} |
|||
<pre>{2, 3, 5, 11, 19, 29, 41, 59, 79, 101, 127, 157, 191, 227, 269, 313, 359, 409, 461, 521, 587, 659, 733, 809, 887, 967, 1049}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |
||