1,3
Do[ If[ PrimeQ[ 4*9^n + 1], Print[ n ]], {n, 0, 10^4}] - Ryan Propper (rpropper(AT)stanford.edu), Mar 25 2007
Select[Range[0, 5000], PrimeQ[4 9^#+1]&] (* From Harvey P. Dale, Dec 07 2011 *)
Sequence in context: A120905 A062599 A101246 * A092568 A055624 A065244
Adjacent sequences: A056798 A056799 A056800 * A056802 A056803 A056804
nonn,more
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 22 2000
More terms from Ryan Propper (rpropper(AT)stanford.edu), Mar 25 2007