login
Row sums of triangle in A059274.
1

%I #6 Jan 04 2017 02:43:46

%S 1,3,14,79,482,3088,20502,139882,975084,6915354,49742974,362054512,

%T 2661657346,19735338206,147418892116,1108339796742,8380510594346,

%U 63689530713888,486218971691294,3727035449588930,28674306373680492

%N Row sums of triangle in A059274.

%H G. C. Greubel, <a href="/A059276/b059276.txt">Table of n, a(n) for n = 0..250</a>

%t T[i_, j_]:= T[i, j] = Module[{r, s, t1}, If[i == 0 && j == 0, Return[1]]; If[j == 0, Return[1]]; t1 = T[i, j - 1]; For[r = 0, r <= i - j, r++,

%t For[s = 0, s <= j, s++, If[r + s != i, t1 = t1 + T[r + s, s]]]];

%t Return[t1]]; Table[Sum[T[n, k], {k, 0, n}], {n, 0, 10}] (* _G. C. Greubel_, Jan 04 2017 *)

%K nonn

%O 0,2

%A _N. J. A. Sloane_, Jan 24 2001