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