

A234924


Combined weight, as defined at A244094, of the distinctparts partitions of n.


3



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A009420 A189328 A090746 * A174114 A197540 A089118
Adjacent sequences: A234921 A234922 A234923 * A234925 A234926 A234927


KEYWORD

nonn,easy


AUTHOR

Clark Kimberling, Jan 01 2014


STATUS

approved



