OFFSET
1,12
COMMENTS
a(p^3) = 1, a(p^2 q) = 3, a(pqr) = 6, otherwise (when A101605(n) = 0), a(n) = 0.
LINKS
MATHEMATICA
Join[{0}, Table[e=Sort[Transpose[FactorInteger[n]][[2]]]; Which[e=={3}, 1, e=={1, 2}, 3, e=={1, 1, 1}, 6, True, 0], {n, 2, 150}]] (* T. D. Noe, Sep 29 2006 *)
PROG
(PARI) A123074(n) = if(3==bigomega(n), binomial(1+omega(n), 2), 0); \\ Antti Karttunen, Jul 23 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane and T. D. Noe, Sep 29 2006
EXTENSIONS
More terms from T. D. Noe, Sep 29 2006
STATUS
proposed