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

Author

Clark Kimberling, Jan 01 2014

Keywords

• nonn
• easy

Comments

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

Crossrefs

Cf. A234094, A234922, A234924.

Programs

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}]