OFFSET
1,3
REFERENCES
L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 259.
EXAMPLE
Triangle begins:
1;
1;
2, 1;
8, 1;
16, 20, 1;
136, 40, 1;
...
MATHEMATICA
T[n_, n_] = 1; T[n_, k_] /; 0 <= k <= n := T[n, k] = T[n - 1, k - 1] + k*(k + 1)*T[n - 1, k + 1]; T[_, _] = 0;
row[n_] := DeleteCases[Table[T[n, k], {k, 1, n}] , 0];
Array[row, 13] // Flatten (* Jean-François Alcover, Nov 09 2017 *)
CROSSREFS
KEYWORD
tabf,nonn,nice
AUTHOR
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Feb 08 2001
STATUS
approved