OFFSET
1,3
COMMENTS
a(41) > 2*10^5. - Robert Price, May 14 2015
MATHEMATICA
Do[ If[ PrimeQ[ 7*3^n - 2 ], Print[ n ] ], {n, 0, 2500} ]
PROG
(PARI) is(n)=ispseudoprime(7*3^n-2) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 26 2000
EXTENSIONS
a(30)-a(40) from Robert Price, May 14 2015
First term 0 inserted by Georg Fischer, Aug 01 2019
STATUS
approved