A234924 Combined weight, as defined at A244094, of the distinct-parts partitions of n.

1, 2, 8, 11, 22, 41, 60, 89, 136, 208, 275, 397, 526, 724, 978, 1279, 1646, 2172, 2752, 3518, 4492, 5620, 7010, 8742, 10809, 13280, 16346, 19937, 24200, 29373, 35436, 42548, 51153, 61039, 72794, 86632, 102615, 121268, 143209, 168458, 197753, 231833, 270983

Offset: 1

Author

Clark Kimberling, Jan 01 2014

Keywords

• nonn
• easy

Comments

These are the row sums of the array at A234923.

Crossrefs

Cf. A244093, A234097.

Programs

Mathematica

z = 45; p[n_] := p[n] = Select[IntegerPartitions[n], Max[Length /@ Split@#] == 1 &]; q[n_] := q[n] = Length[p[n]]; v[n_] := v[n] = Table[n + 1 - i, {i, 1, 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]}]; Table[a[n], {n, 1, z}]