A139041 Sum of divisors of the number of partitions of n.

1, 3, 4, 6, 8, 12, 24, 36, 72, 96, 120, 96, 102, 240, 372, 384, 480, 576, 1026, 960, 2340, 2016, 1512, 3224, 3240, 6720, 6336, 6588, 6048, 13104, 11232, 12768, 17784, 22176, 22344, 17978, 27072, 35112, 69696, 87552, 74496, 87048, 104544, 97216, 137088, 214896

Offset

1,2

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Formula

a(n) = sigma(A000041(n)) = A000203(A000041(n)).

Example

a(7)=24 because the number of partitions of 7 is 15 and the sum of divisors of 15 is equal to 1 + 3 + 5 + 15 = 24.

Mathematica

DivisorSigma[1, PartitionsP[Range[50]]] (* Harvey P. Dale, Nov 27 2011 *)

Prog

(PARI) a(n) = sigma(numbpart(n)); \\ Michel Marcus, Jun 01 2015

Crossrefs

Cf. A000041, A000203, A139055.

Sequence in context: A277099 A146566 A204658 * A367081 A244607 A136483

Adjacent sequences: A139038 A139039 A139040 * A139042 A139043 A139044

Keyword

nonn

Author

Omar E. Pol, Apr 16 2008

Status

approved