OFFSET
1,1
COMMENTS
Primes of the form (13*k^2 - 13*k + 2)/2.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
OEIS Wiki, Figurate numbers
Eric Weisstein's World of Mathematics, Centered Polygonal Number
Eric Weisstein's World of Mathematics, Prime Number
MATHEMATICA
Select[Table[(13k^2-13k+2)/2, {k, 200}], PrimeQ] (* Harvey P. Dale, Jun 16 2023 *)
PROG
(PARI) for(n=1, 1e3, if(isprime(k=(13*n^2-13*n+2)/2), print1(k, ", "))) \\ Altug Alkan, Nov 26 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Nov 26 2015
STATUS
approved