OFFSET
1,2
COMMENTS
a(16) > 20055. - Jinyuan Wang, Jan 29 2020
MATHEMATICA
Do[ If[ PrimeQ[ (7*3^n + 5)/2 ], Print[n] ], {n, 0, 5300} ]
PROG
(PARI) is(n)=ispseudoprime((7*3^n+5)/2) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 16 2001
EXTENSIONS
a(15) from Jinyuan Wang, Jan 29 2020
a(16) from Michael S. Branicky, Jul 08 2024
STATUS
approved