A301522 Numbers k such that 16*k^k + 1 is prime.

0, 1, 3, 6, 12, 60, 85, 87, 612, 9073

Offset

1,3

Links

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

Mathematica

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

Prog

(PARI) for(n=0, 1000, if(isprime(16*n^n+1), print1(n", ")))

Crossrefs

Cf. A110932, A160600, A301519.

Sequence in context: A129380 A085866 A282231 * A139416 A013563 A009788

Adjacent sequences: A301519 A301520 A301521 * A301523 A301524 A301525

Keyword

nonn,more

Author

Seiichi Manyama, Mar 23 2018

Extensions

a(10) from Michael S. Branicky, Apr 16 2023

Status

approved