|
|
MATHEMATICA
| {ta={{0}}, tb={{0}}}; Do[g=n; s=2^n-n+1; If[PrimeQ[s], Print[n]; ta=Append[ta, n]; tb=Append[tb, s]], {n, 1, 10000}]; {ta, tb, g}
{ta = {{0}}, tb = {{0}}}; Do[g = n; s = 2^n - n + 1; If[PrimeQ[s], Print[2^n - n + 1]; ta = Append[ta, n]; tb = Append[tb, s]], {n, 0, 1000}]; {ta, tb, g} - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Feb 11 2006
|
