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,3

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A341636 A349129 A034747 * A225939 A191199 A354089

Adjacent sequences: A168012 A168013 A168014 * A168016 A168017 A168018

Keyword

easy,nonn

Author

Omar E. Pol, Nov 20 2009

Extensions

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

Status

approved