A338412 Numbers k such that k * 20^k + 1 is prime.
3, 6207, 8076, 22356, 151456
Offset: 1
Links
- Steven Harvey, Generalized Cullen Search
- G. Loeh, Generalized Cullen primes
- Wikipedia, Cullen number
Crossrefs
Programs
-
Magma
[n: n in [1..10000] |IsPrime(n*20^n+1)]
-
Mathematica
Select[Range[1, 10000], PrimeQ[n*20^n+1] &]
-
PARI
for(n=1, 10000, if(isprime(n*20^n+1), print1(n, ", ")))
Comments