login
A338412
Numbers k such that k * 20^k + 1 is prime.
0
3, 6207, 8076, 22356, 151456
OFFSET
1,1
COMMENTS
a(6) > 219976.
MATHEMATICA
Select[Range[1, 10000], PrimeQ[n*20^n+1] &]
PROG
(PARI) for(n=1, 10000, if(isprime(n*20^n+1), print1(n, ", ")))
(Magma) [n: n in [1..10000] |IsPrime(n*20^n+1)]
CROSSREFS
Numbers k such that k * b^k + 1 is prime: A006093 (b=1), A005849 (b=2), A006552 (b=3), A007646 (b=4), A242176 (b=6), A242177 (b=7), A242178 (b=8), A265013 (b=9), A007647(b=10), A242196(b=12), A242197 (b=14), A242198 (b=15), A242199 (b=16), A007648 (b=18), this sequence (b=20).
Sequence in context: A368622 A034317 A185671 * A187879 A325052 A283019
KEYWORD
nonn,more,hard
AUTHOR
STATUS
approved