OFFSET
0,2
COMMENTS
FORMULA
T(n,k) = if(n=k, 1, if(n-k=1, -2*binomial(n, 1), if(n-k=2, -2*binomial(n, 2), 0))).
E.g.f.: exp(x*y)(1-2x-x^2). This implies that the row polynomials form an Appell sequence. - Tom Copeland, Dec 02 2013
EXAMPLE
Rows begin
1;
-2,1;
-2,-4,1;
0,-6,-6,1;
0,0,-12,-8,1;
0,0,0,-20,-10,1;
0,0,0,0,-30,-12,1;
MATHEMATICA
T[n_, k_] := Which[n == k, 1, n-k == 1, -2*Binomial[n, 1], n-k == 2, -2*Binomial[n, 2], True, 0]; Table[T[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Jean-François Alcover, Jul 09 2015 *)
PROG
(PARI) {(T(n, k) = if(n==k, 1, if(n-k==1, -2*binomial(n, 1), if(n-k==2, -2*binomial(n, 2), 0)))); triangle(nMax) = for (n=0, nMax, for (k=0, n, print1(T(n, k), ", ")); print()); } \\ Michel Marcus, Dec 02 2013
(PARI) egfxy(n, k) = {x = xx + xx*O(xx^n); y = yy + yy*O(yy^k); n!*polcoeff(polcoeff(exp(x*y)*(1-2*x-x^2), n, xx), k, yy); } \\ Michel Marcus, Dec 02 2013
CROSSREFS
KEYWORD
AUTHOR
Paul Barry, Jul 20 2005
STATUS
approved