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

0, 2, 3, 10, 7, 33, 15, 66, 60, 126, 56, 385, 101, 405, 528, 924, 297, 1925, 490, 3135, 2376, 3006, 1255, 11025, 3916, 7308, 9030, 18590, 4565, 39228, 6842, 41745, 30429, 36930, 44649, 143816, 21637, 78045, 93555, 261366, 44583, 372218, 63261, 375875, 445670, 316674, 124754, 1325457

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A000005, A000041, A032741.

Sequence in context: A123167 A333176 A338043 * A278561 A369991 A193729

Adjacent sequences: A141667 A141668 A141669 * A141671 A141672 A141673

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