A129491 Digital sum of the 2^n-th Partition number.

1, 2, 5, 4, 6, 24, 22, 34, 83, 120, 152, 145, 286, 477, 561, 796, 1271, 1639, 2471, 3598, 5114, 7221, 10283, 14315, 20585, 29110, 40890, 58834, 82319, 115690, 164128, 232044, 328463, 462853, 657811, 927235, 1311605, 1855787, 2629927, 3708205

Offset

1,2

Comments

For the same sequence but for base 10 (A070177): 1,6,43,143,471,1511,4959,15914,49580,158148,501883,1582908,5014367,....

Links

Table of n, a(n) for n=1..40.

Formula

a(n) =~ 9*A129490(n)/2.

Example

a(9} = 120 since P(2^9) = 4453575699570940947378 and 4+4+5+3+5+7+5+6+9+9+5+7+0+9+4+0+9+4+7+3+7+8 = 120.

Mathematica

f[n_] := Plus @@ IntegerDigits @PartitionsP[2^n]; Table[ f@n, {n, 0, 42}]

Crossrefs

Cf. A000041, A068413, A129490.

Sequence in context: A114557 A085347 A066337 * A021801 A102513 A100116

Adjacent sequences: A129488 A129489 A129490 * A129492 A129493 A129494

Keyword

base,nonn

Author

Robert G. Wilson v, Apr 12 2007

Status

approved