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

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

Links

Table of n, a(n) for n=1..8.

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

Cf. A110932, A160600, A301520, A301522.

Sequence in context: A325125 A091230 A063852 * A274692 A342155 A308114

Adjacent sequences: A301516 A301517 A301518 * A301520 A301521 A301522

Keyword

nonn,more

Author

Seiichi Manyama, Mar 23 2018

Extensions

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

Status

approved