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,2

Links

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

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

Adjacent sequences: A110568 A110569 A110570 * A110572 A110573 A110574

Keyword

nonn

Author

Reinhard Zumkeller, Jul 28 2005

Status

approved