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
Keywords
Examples
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.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
DivisorSigma[1,PartitionsP[Range[50]]] (* Harvey P. Dale, Nov 27 2011 *)
-
PARI
a(n) = sigma(numbpart(n)); \\ Michel Marcus, Jun 01 2015