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,2

Comments

These are the row sums of the array at A234923.

Links

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

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

Crossrefs

Cf. A244093, A234097.

Sequence in context: A189328 A090746 A362869 * A336771 A174114 A197540

Adjacent sequences: A234921 A234922 A234923 * A234925 A234926 A234927

Keyword

nonn,easy

Author

Clark Kimberling, Jan 01 2014

Status

approved