A234097 Combined weight, as defined at A234094, of the partitions of n.

1, 5, 14, 36, 74, 153, 275, 497, 832, 1383, 2182, 3446, 5213, 7872, 11563, 16899, 24155, 34422, 48146, 67117, 92239, 126222, 170721, 230113, 306990, 408110, 538067, 706834, 921862, 1198453, 1548054, 1993462, 2552970, 3259507, 4141423, 5247231, 6618965

Offset

1,2

Comments

These are the row sums of the array at A234094, where weight is defined.

Links

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

Mathematica

z = 40; p[n_] := p[n] = IntegerPartitions[n]; q[n_] := q[n] = Length[p[n]]; v[n_] := v[n]; w[n_, h_] := w[n, h] = Dot[p[n][[h]], v[Length[p[n][[h]]]]]; a[n_] := Sum[w[n, h], {h, 1, q[n]}]; t = Table[a[n], {n, 1, z}]

Crossrefs

Cf. A234094, A234922, A234924.

Sequence in context: A027983 A142585 A332743 * A211562 A261055 A320853

Adjacent sequences: A234094 A234095 A234096 * A234098 A234099 A234100

Keyword

nonn,easy

Author

Clark Kimberling, Jan 01 2014

Status

approved