login
A309409
Numbers k such that (37^k + 1)/38 is prime.
0
5, 7, 2707, 163193
OFFSET
1,1
COMMENTS
Larger terms correspond to probable primes.
MATHEMATICA
Do[p=Prime[n]; If[PrimeQ[(37^p + 1)/38], Print[p]], {n, 1, 1000000}]
PROG
(PARI) is(n)=ispseudoprime((37^n+1)/38)
CROSSREFS
Sequence in context: A274774 A370190 A176599 * A291687 A257774 A281386
KEYWORD
nonn,hard,more
AUTHOR
Paul Bourdelais, Jul 29 2019
STATUS
approved