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
KEYWORD
nonn
AUTHOR
Jason Earls, Apr 05 2001
EXTENSIONS
More terms from Reiner Martin, Jul 20 2001
STATUS
approved