OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..5000
MATHEMATICA
f[n_] = DivisorSigma[0, n]*PartitionsP[n] - DivisorSigma[0, n]; Table[f[n], {n, 1, 30}]
PROG
(PARI) a(n) = if (n, numdiv(n)*(numbpart(n)-1), 0); \\ Michel Marcus, Jun 11 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula and Gary W. Adamson, Sep 06 2008
STATUS
approved