OFFSET
1,1
COMMENTS
No additional terms through k=1000. - Harvey P. Dale, Oct 06 2023
MAPLE
a:=k->`if`(isprime(4*k^k+1), 4*k^k+1, NULL): seq(a(k), k=1..1400); # Muniru A Asiru, Mar 25 2018
MATHEMATICA
Select[Table[4n^n+1, {n, 30}], PrimeQ] (* Harvey P. Dale, Oct 06 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Mar 25 2018
STATUS
approved