A061421 Primes of the form 2^n+n+1.
2, 7, 71, 110427941548649020598956093796432407239217743554726184882600387580788973
Offset: 1
Keywords
Links
- K. S. Brown, The Sum of the Prime Factors of N (Part 2: Primes of the Form 2k-1 + k), Math Pages
- Wikipedia, Zeisel number
Programs
-
Maple
a:=proc(n) if isprime(2^n+n+1)=true then 2^n+n+1 else fi end: seq(a(n),n=0..1000); # Emeric Deutsch, May 13 2006
-
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} (* Labos Elemer, Nov 19 2004 *)
Extensions
Edited by N. J. A. Sloane, May 04 2007
Comments