A059276 Row sums of triangle in A059274.

1, 3, 14, 79, 482, 3088, 20502, 139882, 975084, 6915354, 49742974, 362054512, 2661657346, 19735338206, 147418892116, 1108339796742, 8380510594346, 63689530713888, 486218971691294, 3727035449588930, 28674306373680492

Offset

0,2

Links

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

Mathematica

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++,
For[s = 0, s <= j, s++, If[r + s != i, t1 = t1 + T[r + s, s]]]];
Return[t1]]; Table[Sum[T[n, k], {k, 0, n}], {n, 0, 10}] (* G. C. Greubel, Jan 04 2017 *)

Crossrefs

Sequence in context: A001564 A277132 A330074 * A003169 A086621 A020089

Adjacent sequences: A059273 A059274 A059275 * A059277 A059278 A059279

Keyword

nonn

Author

N. J. A. Sloane, Jan 24 2001

Status

approved