OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
f[n_] = DivisorSigma[0, n]*PartitionsP[n]; Table[f[n], {n, 1, 30}]
PROG
(PARI) al(n)=vector(n, k, numbpart(k)*numdiv(k))
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula and Gary W. Adamson, Sep 06 2008
EXTENSIONS
Edited with more terms by Franklin T. Adams-Watters, Sep 16 2011
STATUS
approved