OFFSET
1,3
MATHEMATICA
Do[ If[ PrimeQ[ 2*9^n + 1], Print[ n ]], {n, 0, 1000}]
PROG
(PARI) is(n)=ispseudoprime(2*9^n+1) \\ Charles R Greathouse IV, Jun 12 2017
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Robert G. Wilson v, Aug 22 2000
EXTENSIONS
More terms from Rick L. Shepherd, Apr 22 2003
a(21)-a(31) from David Broadhurst, Feb 22 2010
a(32)-a(34) from Paul S. Vanderveen, Feb 09 2020
STATUS
approved