A141667 Number of partitions of n times number of divisors of n.

1, 4, 6, 15, 14, 44, 30, 88, 90, 168, 112, 462, 202, 540, 704, 1155, 594, 2310, 980, 3762, 3168, 4008, 2510, 12600, 5874, 9744, 12040, 22308, 9130, 44832, 13684, 50094, 40572, 49240, 59532, 161793, 43274, 104060, 124740, 298704, 89166, 425392, 126522, 451050

Offset: 1

Author

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

Keywords

• nonn

Links

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

Crossrefs

Cf. A000005, A000041, A144300, A195364.

Programs

Mathematica

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

PARI

al(n)=vector(n,k,numbpart(k)*numdiv(k))

Formula

a(n) = p(n) * d(n) = A000041(n) * A000005(n).

Extensions

Edited with more terms by Franklin T. Adams-Watters, Sep 16 2011