proposed
approved
proposed
approved
editing
proposed
T[n_, k_] := Module[{x = X + X*O[X]^n, y = Y + Y*O[Y]^k}, A = 1/(1 - x*y*Sum[x^j*Product[y + i, {i, 0, j - 1}], {j, 0, n}]); Coefficient[ Coefficient[A, X, n], Y, k]];
Table[T[n, k], {n, 0, 10}, {k, 0, n}] // Flatten (* Jean-François Alcover, May 26 2019, from PARI *)
approved
editing
editing
approved
Alois P. Heinz, <a href="/A111146/b111146.txt">Rows n = 0..140, flattened</a>
approved
editing
_Philippe DELEHAM_, Deléham_, Oct 19 2005
_Philippe DELEHAM (kolotoko(AT)wanadoo.fr), _, Oct 19 2005
G.f.: A(x, y) = 1/(1 - x*y*Sum_{j>=0} (y-1+j)!/(y-1)!*x^j ). - _Paul D. Hanna (pauldhanna(AT)juno.com), _, Oct 26 2005
.1;
.0, 1;
.0, 0, 2;
.0, 0, 1, 4;
.0, 0, 2, 5, 8;
.0, 0, 6, 15, 17, 16;
.0, 0, 24, 62, 68, 49, 32;
.0, 0, 120, 322, 359, 243, 129, 64;
.0, 0, 720, 2004, 2308, 1553, 756, 321, 128;
.0, 0, 5040, 14508, 17332, 11903, 5622, 2151, 769, 256;
.0, 0, 40320, 119664, 148232, 105048, 49840, 18066, 5756, 1793, 512;
...................................................................
....................................................................
easy,nonn,tabl,new
Triangle begins :
easy,nonn,tabl,new