OFFSET
1,3
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3) = 2 because A000326(3) = 12 = 2^2 * 3.
MATHEMATICA
a[n_] := PrimeNu[n*(3*n-1)/2]; Array[a, 100] (* Amiram Eldar, Sep 15 2024 *)
PrimeNu[PolygonalNumber[5, Range[100]]] (* Harvey P. Dale, Aug 22 2025 *)
PROG
(PARI)
pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number
a(n) = omega(pg(5, n))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Colin Barker, Jul 02 2015
STATUS
approved
