A056592
Row sums of signed triangle A056588.
Original entry on oeis.org
1, 0, -2, -6, -14, 0, 278, 2520, 15016, 0, -2172632, -53222400, -835765304, 0, 851104689248, 55249242048000, 2288258540319136, 0, -16212819419809777952, -2773508758631170560000, -302332135138133434911104, 0, 14824259801049378686209605248
Offset: 0
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 1, 4, 4, 1, 1, 7, 16, 7, 1, 1, 12, 53, 53, 12, 1, 1, 20, 166, 318, 166, 20, 1, 1, 33, 492, 1784, 1784, 492, 33, 1, 1, 54, 1413, 9288, 17840, 9288, 1413, 54, 1, 1, 88, 3960, 46233, 163504, 163504, 46233, 3960, 88, 1, 1, 143, 10912, 221859, 1418549, 2616064, 1418549, 221859, 10912, 143, 1
Offset: 0
Triangle begins:
1;
1, 1;
1, 2, 1;
1, 4, 4, 1;
1, 7, 16, 7, 1;
1, 12, 53, 53, 12, 1;
1, 20, 166, 318, 166, 20, 1;
1, 33, 492, 1784, 1784, 492, 33, 1;
1, 54, 1413, 9288, 17840, 9288, 1413, 54, 1;
1, 88, 3960, 46233, 163504, 163504, 46233, 3960, 88, 1;
1, 143, 10912, 221859, 1418549, 2616064, 1418549, 221859, 10912, 143, 1;
-
T[n_, 1] := 1; T[n_, n_] := 1; T[n_, k_] := Fibonacci[(n - k + 1)]*T[ n - 1, k - 1] + Fibonacci[k ]*T[n - 1, k];
Table[T[n, m], {n, 1, 11}, {m, 1, n}] // Flatten (* Roger L. Bagula, Sep 09 2008 *)
Showing 1-2 of 2 results.