This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A234924 #4 Jan 08 2014 05:36:23
%S A234924 1,2,8,11,22,41,60,89,136,208,275,397,526,724,978,1279,1646,2172,2752,
%T A234924 3518,4492,5620,7010,8742,10809,13280,16346,19937,24200,29373,35436,
%U A234924 42548,51153,61039,72794,86632,102615,121268,143209,168458,197753,231833,270983
%N A234924 Combined weight, as defined at A244094, of the distinct-parts partitions of n.
%C A234924 These are the row sums of the array at A234923.
%t A234924 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}]
%Y A234924 Cf. A244093, A234097.
%K A234924 nonn,easy
%O A234924 1,2
%A A234924 _Clark Kimberling_, Jan 01 2014