A110571 - OEIS

%I #6 Aug 31 2017 23:02:17

%S 1,2,4,8,12,20,22,36,38,50,54,76,66,100,94,106,116,152,128,180,154,

%T 182,194,240,192,258,250,272,262,340,264,376,330,362,374,402,352,488,

%U 442,462,428,564,444,604,518,536,586,684,534,698,620,686,662,812,658,782

%N Sums of rows of the triangle in A110570.

%H G. C. Greubel, <a href="/A110571/b110571.txt">Table of n, a(n) for n = 0..1000</a>

%t 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 *)

%K nonn

%O 0,2

%A _Reinhard Zumkeller_, Jul 28 2005