OFFSET
0,2
LINKS
Peter Luschny, Extensions of the binomial
FORMULA
E.g.f.: (exp(x)*(y - 1))/(y - exp(x*(y - 1))). - Peter Luschny, Aug 14 2022
T(n,k) = Sum_{i=0..n} Binomial(n,i)*Eulerian(i,k), where Eulerian(n,k) = Eulerian numbers A173018. Equivalently, if T is the matrix generated by T(n,k), B is the binomial matrix and E is the Eulerian matrix, then T = B E. - Emanuele Munarini, Oct 19 2023
EXAMPLE
Triangle starts:
[1]
[2, 0]
[4, 1, 0]
[8, 7, 1, 0]
[16, 33, 15, 1, 0]
[32, 131, 131, 31, 1, 0]
[64, 473, 883, 473, 63, 1, 0]
[128, 1611, 5111, 5111, 1611, 127, 1, 0]
MAPLE
T := (n, k) -> add((-1)^(n-j)*combinat:-eulerian1(j, k)*binomial(-j-1, -n-1), j=0..n): seq(seq(T(n, k), k=0..n), n=0..10);
# Or:
egf := (exp(x)*(y - 1))/(y - exp(x*(y - 1))); ser := series(egf, x, 12):
cx := n -> series(coeff(ser, x, n), y, n + 2):
seq(seq(n!*coeff(cx(n), y, k), k = 0..n), n = 0..9); # Peter Luschny, Aug 14 2022
MATHEMATICA
<<Combinatorica`
Flatten[Table[Sum[(-1)^(n-j) Binomial[-j-1, -n-1] Eulerian[j, k], {j, 0, n}], {n, 0, 9}, {k, 0, n}]]
Flatten[Table[Sum[Binomial[n, i] Eulerian[i, k], {i, 0, n}], {n, 0, 12}, {k, 0, n}]] (* Emanuele Munarini, Oct 19 2023 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Apr 20 2016
STATUS
approved