OFFSET
1,2
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
EXAMPLE
a(4) = 6 because the 4th 10-gonal number is 52, which has 6 divisors: 1,2,4,13,26,52.
MATHEMATICA
DivisorSigma[0, PolygonalNumber[10, Range[80]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 05 2021 *)
PROG
(PARI)
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
vector(150, n, numdiv(pg(10, n)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Sep 13 2016
STATUS
approved