A301519 Numbers k such that 4*k^k + 1 is prime.

0, 1, 2, 3, 7, 25, 7143, 11583

Offset: 1

Author

Seiichi Manyama, Mar 23 2018

Keywords

• nonn
• more

Comments

a(9) > 20000, if it exists. All terms correspond to certified primes. - Giovanni Resta, Apr 06 2018

Crossrefs

Cf. A110932, A160600, A301520, A301522.

Programs

Mathematica

Flatten[{0, Select[Range[1000], PrimeQ[4*#^# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)

PARI

for(n=0, 100, if(isprime(4*n^n+1), print1(n", ")))

Extensions

a(7)-a(8) from Giovanni Resta, Apr 06 2018