OFFSET
1,1
MATHEMATICA
Do[ If[ PrimeQ[ 2*3^n - 7 ], Print[n] ], {n, 1, 5700} ]
PROG
(PARI) is(n)=ispseudoprime(2*3^n-7) \\ Charles R Greathouse IV, May 22 2017
(Magma) [n: n in [1..1000] | IsPrime(2*3^n-7)]; // Jinyuan Wang, Jan 20 2020
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 15 2001
EXTENSIONS
First term 0 removed by Georg Fischer, Aug 01 2019
a(27)-a(30) from Jinyuan Wang, Jan 20 2020
a(31) from Michael S. Branicky, May 20 2023
a(32) from Michael S. Branicky, Jul 28 2024
STATUS
approved