OFFSET
1,2
COMMENTS
a(18) > 26240. - Jinyuan Wang, Jan 20 2020
a(19) > 100000. - Michael S. Branicky, Jul 08 2024
MATHEMATICA
Do[ If[ PrimeQ[ 2*3^n + 7 ], Print[n] ], {n, 0, 10000} ]
PROG
(PARI) is(n)=ispseudoprime(2*3^n+7) \\ Charles R Greathouse IV, Jun 13 2017
(Magma) [n: n in [0..1000] | IsPrime(2*3^n+7)]; // Jinyuan Wang, Jan 20 2020
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 15 2001
EXTENSIONS
a(18) from Michael S. Branicky, Jul 07 2024
STATUS
approved