[go: up one dir, main page]

login
A110571
Sums of rows of the triangle in A110570.
2
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,2
LINKS
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 *)
CROSSREFS
Sequence in context: A117455 A277753 A237820 * A037168 A049696 A206350
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 28 2005
STATUS
approved