OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
f[n_] = DivisorSigma[0, n]*PartitionsP[n] - PartitionsP[n]; Table[f[n], {n, 1, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula and Gary W. Adamson, Sep 06 2008
EXTENSIONS
Terms a(31) onward added by G. C. Greubel, Jun 10 2018
STATUS
approved