login
A301519
Numbers k such that 4*k^k + 1 is prime.
3
0, 1, 2, 3, 7, 25, 7143, 11583
OFFSET
1,3
COMMENTS
a(9) > 20000, if it exists. All terms correspond to certified primes. - Giovanni Resta, Apr 06 2018
MATHEMATICA
Flatten[{0, Select[Range[1000], PrimeQ[4*#^# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
PROG
(PARI) for(n=0, 100, if(isprime(4*n^n+1), print1(n", ")))
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Seiichi Manyama, Mar 23 2018
EXTENSIONS
a(7)-a(8) from Giovanni Resta, Apr 06 2018
STATUS
approved