A264823 Centered 16-gonal (or hexadecagonal) primes.

17, 97, 241, 337, 449, 577, 881, 1249, 3041, 3361, 3697, 4049, 4801, 6961, 7937, 9521, 10657, 13121, 14449, 15137, 16561, 18049, 23761, 25537, 26449, 31249, 32257, 37537, 39761, 40897, 46817, 48049, 49297, 54449, 58481, 64081, 65521, 66977, 68449, 77617, 79201

Offset: 1

Author

Ilya Gutkovskiy, Nov 26 2015

Keywords

• nonn

Comments

Primes of the form 8*k^2 - 8*k + 1.

Links

• OEIS Wiki, Figurate numbers
• Eric Weisstein's World of Mathematics, Centered Polygonal Number
• Eric Weisstein's World of Mathematics, Prime Number

Crossrefs

Cf. A069129, A000040.

Programs

Mathematica

Select[Table[8k^2-8k+1,{k,0,100}],PrimeQ] (* Harvey P. Dale, Mar 08 2023 *)

PARI

for(n=1, 1e3, if(isprime(k=8*n^2-8*n+1), print1(k,", "))) \\ Altug Alkan, Nov 26 2015