OFFSET
1,2
COMMENTS
These are the row sums of the array at A234094, where weight is defined.
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jan 01 2014
STATUS
approved