A168015 a(n) = A000041(n) + n*A032741(n).

1, 1, 4, 6, 13, 12, 29, 22, 46, 48, 72, 67, 137, 114, 177, 221, 295, 314, 475, 509, 727, 855, 1068, 1278, 1743, 2008, 2514, 3091, 3858, 4594, 5814, 6873, 8509, 10242, 12412, 14988, 18265, 21674, 26129, 31302, 37618, 44624, 53468, 63304, 75395, 89359

Offset: 0

Author

Omar E. Pol, Nov 20 2009

Keywords

• easy
• nonn

Links

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

Crossrefs

Cf. A000005, A032741, A000041, A168014, A168020, A168021.

Programs

Mathematica

Table[PartitionsP[n] + n*(DivisorSigma[0, n] - 1), {n, 0, 50}] (* G. C. Greubel, Jul 05 2016 *)

PARI

a(n) = if (n, numbpart(n) + n*(numdiv(n)-1), numbpart(0)); \\ Michel Marcus, Jul 06 2016

Extensions

a(14)-a(46) from Vincenzo Librandi, May 26 2010