A096816 Row sums of triangle A096815, in which A096815(n,k) equals the k-th term of the convolution of the two prior rows indexed by (n-k) and k.

1, 2, 3, 5, 9, 15, 26, 44, 75, 129, 220, 378, 648, 1114, 1910, 3284, 5635, 9677, 16608, 28501, 48930, 83973, 144150, 247396, 424612, 728577, 1250185, 2144858, 3679772, 6313029, 10830673, 18581706, 31880471, 54698330, 93847987, 161021223

Offset

0,2

Links

Table of n, a(n) for n=0..35.

Mathematica

 T[n_, k_] := T[n, k] = If[n < k || k < 0, 0, If[k = 1 || k == n, 1, Sum[T[n-k, j]T[k, k-j], {j, 0, k}]]]
Table[Sum[T[n, k], {k, 0, n}], {n, 0, 50}] [Emanuele Munarini, May 16 2012]

Prog

(Maxima) T(n, k):= if ( n<k or k<0 ) then 0 else if ( k<=1 or k=n ) then 1 else sum(T(n-k, j)*T(k, k-j), j, 0, k);
makelist(sum(T(n, k), k, 0, n), n, 0, 12); [Emanuele Munarini, May 12 2012]

Crossrefs

Cf. A096815.

Sequence in context: A114138 A114140 A302018 * A220127 A286887 A018157

Adjacent sequences: A096813 A096814 A096815 * A096817 A096818 A096819

Keyword

nonn

Author

Paul D. Hanna, Jul 20 2004

Status

approved