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
Keywords
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 *)
Comments