login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A234924 Combined weight, as defined at A244094, of the distinct-parts 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
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
Sequence in context: A189328 A090746 A362869 * A336771 A174114 A197540
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jan 01 2014
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 24 07:07 EST 2024. Contains 370294 sequences. (Running on oeis4.)