login
A234097
Combined weight, as defined at A234094, of the partitions of n.
5
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,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