A141668 a(n) = tau(n) * (NumberOfPartitions(n) - 1).

0, 0, 2, 4, 12, 12, 40, 28, 84, 87, 164, 110, 456, 200, 536, 700, 1150, 592, 2304, 978, 3756, 3164, 4004, 2508, 12592, 5871, 9740, 12036, 22302, 9128, 44824

Offset: 0

Author

Roger L. Bagula and Gary W. Adamson, Sep 06 2008

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..5000

Crossrefs

Cf. A000005, A000041.

Programs

Mathematica

f[n_] = DivisorSigma[0, n]*PartitionsP[n] - DivisorSigma[0, n]; Table[f[n], {n, 1, 30}]

PARI

a(n) = if (n, numdiv(n)*(numbpart(n)-1), 0); \\ Michel Marcus, Jun 11 2018

Formula

a(n) = A000005(n)*(A000041(n) - 1) = A000005(n)*A000065(n).