A133041 Sum of n and partition number of n.

1, 2, 4, 6, 9, 12, 17, 22, 30, 39, 52, 67, 89, 114, 149, 191, 247, 314, 403, 509, 647, 813, 1024, 1278, 1599, 1983, 2462, 3037, 3746, 4594, 5634, 6873, 8381, 10176, 12344, 14918, 18013, 21674, 26053, 31224, 37378, 44624, 53216

Offset

0,2

Links

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

Formula

a(n) = n + partition(n) = n + A000041(n).

a(n) = A207779(A000041(n)), n >= 1. - Omar E. Pol, Jul 17 2014

Mathematica

Table[n+PartitionsP[n], {n, 0, 50}] (* Harvey P. Dale, Jul 17 2014 *)

Prog

(PARI) a(n)=numbpart(n)+n \\ Charles R Greathouse IV, Jan 06 2016

Crossrefs

Cf. A001365, A014688, A064985, A090631, A102379.

Cf. A000041 (the partition numbers).

Partial sums of A232697.

Sequence in context: A001365 A102379 A238374 * A079492 A267161 A173784

Adjacent sequences: A133038 A133039 A133040 * A133042 A133043 A133044

Keyword

nonn

Author

Omar E. Pol, Oct 29 2007

Status

approved