

A234097


Combined weight, as defined at A244094, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

These are the row sums of the array at A234094, where weight is defined.


LINKS

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


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

Cf. A244094, A234922, A234924.
Sequence in context: A027974 A027983 A142585 * A211562 A261055 A320853
Adjacent sequences: A234094 A234095 A234096 * A234098 A234099 A234100


KEYWORD

nonn,easy


AUTHOR

Clark Kimberling, Jan 01 2014


STATUS

approved



