OFFSET
2,1
LINKS
Colin Barker, Table of n, a(n) for n = 2..1000
EXAMPLE
a(6) = 3 because A000384(6) = 66 = 2 * 3 * 11.
MATHEMATICA
PrimeNu[PolygonalNumber[6, Range[2, 90]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 23 2017 *)
PROG
(PARI)
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
a(n) = omega(pg(6, n))
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Jul 20 2015
STATUS
approved