A110571 Sums of rows of the triangle in A110570.

1, 2, 4, 8, 12, 20, 22, 36, 38, 50, 54, 76, 66, 100, 94, 106, 116, 152, 128, 180, 154, 182, 194, 240, 192, 258, 250, 272, 262, 340, 264, 376, 330, 362, 374, 402, 352, 488, 442, 462, 428, 564, 444, 604, 518, 536, 586, 684, 534, 698, 620, 686, 662, 812, 658, 782

Offset: 0

Author

Reinhard Zumkeller, Jul 28 2005

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000

Programs

Mathematica

T[n_, k_] := T[n, k] = If[Min[k, n - k] == 0, 1, 1 + T[n - Min[k, n - k], Min[k, n - k]]]; Table[Sum[T[n, k], {k, 0, n}], {n, 0, 50}] (* G. C. Greubel, Aug 31 2017 *)