Frobenius numbers: Difference between revisions
Content added Content deleted
(Frobenius numbers en Python) |
|||
Line 811: | Line 811: | ||
900591 919631* 937019 946719 958431 972179 986039 |
900591 919631* 937019 946719 958431 972179 986039 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[fn] |
|||
fn[n_] := Prime[n] Prime[n + 1] - Prime[n] - Prime[n + 1] |
|||
a = -1; |
|||
i = 1; |
|||
res = {}; |
|||
While[a < 10^4, |
|||
a = fn[i]; |
|||
i++; |
|||
If[a < 10^4, AppendTo[res, a]] |
|||
] |
|||
res</lang> |
|||
{{out}} |
|||
<pre>{1,7,23,59,119,191,287,395,615,839,1079,1439,1679,1931,2391,3015,3479,3959,4619,5039,5615,6395,7215,8447,9599}</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |