A301521 Numbers k such that 4*k^k - 3 is prime.

2, 4, 5, 7, 22, 1045

Offset

1,1

Comments

Next term, if it exists, is greater than 5000. - Vaclav Kotesovec, Mar 25 2018

Next term, if it exists, is greater than 25000. - Robert Price, Apr 22 2019

Links

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

Mathematica

Select[Range[1000], PrimeQ[4*#^# - 3] &] (* Vaclav Kotesovec, Mar 25 2018 *)

Prog

(PARI) for(n=0, 100, if(isprime(4*n^n-3), print1(n", ")))

Crossrefs

Cf. A301520, A301870.

Sequence in context: A049915 A244332 A119909 * A097698 A233524 A324331

Adjacent sequences: A301518 A301519 A301520 * A301522 A301523 A301524

Keyword

nonn,hard,more

Author

Seiichi Manyama, Mar 23 2018

Extensions

a(6) from Vaclav Kotesovec, Mar 25 2018

Status

approved