Frobenius numbers: Difference between revisions

=={{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>