A060425 Primes of form n*4^n - 1.

3, 31, 191, 5119, 524287, 3758096383, 1618481116086271, 5359447279004780799548150067050349330431, 2817103802133904744169307240538184064530443801964688726052818649087

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n=1,...,12

Mathematica

lst={}; Do[p=n*4^n-1; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 28 2009 *)

Prog

(PARI) { n=0; for (m=1, 530, if (isprime(a=m*4^m - 1), write("b060425.txt", n++, " ", a)); ) } \\ Harry J. Smith, Jul 04 2009

Crossrefs

Sequence in context: A198009 A060416 A333368 * A376950 A203242 A121099

Adjacent sequences: A060422 A060423 A060424 * A060426 A060427 A060428

Keyword

nonn

Author

Jason Earls, Apr 05 2001

Extensions

More terms from Reiner Martin, Jul 20 2001

Status

approved