login
A301521
Numbers k such that 4*k^k - 3 is prime.
8
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
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
Sequence in context: A049915 A244332 A119909 * A097698 A233524 A324331
KEYWORD
nonn,hard,more
AUTHOR
Seiichi Manyama, Mar 23 2018
EXTENSIONS
a(6) from Vaclav Kotesovec, Mar 25 2018
STATUS
approved