OFFSET
1,1
COMMENTS
a(23) > 20306. - Jinyuan Wang, Jan 29 2020
MATHEMATICA
Do[ If[ PrimeQ[ (7*3^n - 5)/2 ], Print[n] ], {n, 0, 4500} ]
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(21)-a(22) from Jinyuan Wang, Jan 29 2020
a(23) from Michael S. Branicky, May 02 2023
a(24) from Michael S. Branicky, Oct 24 2024
STATUS
approved