OFFSET
1,1
COMMENTS
Apart from the leading 2 the same as A176616. - R. J. Mathar, Apr 27 2017
Primes in A130883. - Omar E. Pol, Apr 27 2017
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[PolygonalNumber[6, Range[200]]+1, PrimeQ] (* Harvey P. Dale, Jun 16 2022 *)
PROG
(PARI) pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
maxk=300; L=List(); for(k=1, maxk, if(isprime(p=pg(6, k) + 1), listput(L, p))); Vec(L)
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Apr 26 2017
STATUS
approved