1,1
{ta={{0}}, tb={{0}}}; Do[g=n; s=2^n+n^2+1; If[PrimeQ[s], Print[n]; ta=Append[ta, n]; tb=Append[tb, s]], {n, 1, 10000}]; {ta, tb, g}
Cf. A001580, A069539.
Sequence in context: A205859 A177708 A059961 * A190265 A135358 A187391
Adjacent sequences: A100354 A100355 A100356 * A100358 A100359 A100360
nonn
Labos E. (labos(AT)ana.sote.hu), Nov 19 2004