1,1

The next term has 151 digits, which means that the next few elements are too long to be included. - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Feb 11 2006

{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

Cf. A001580, A069539, A052007, A048744, A100357-A100361.

Adjacent sequences: A100359 A100360 A100361 this_sequence A100363 A100364 A100365

Sequence in context: A075095 A134243 A126339 this_sequence A062439 A139521 A019515

nonn

Labos E. (labos(AT)ana.sote.hu), Nov 19 2004