OFFSET
2,3
EXAMPLE
Triangle begins:
1;
1, 2;
1, 5, 3;
1, 13, 16, 4;
...
MAPLE
EULERitable:=proc(tbl) local ser, out, i, j, tmp; ser:=1+add(add(q^i*t^j*tbl[i][j], j=1..nops(tbl[i])), i=1..nops(tbl)); out:=[]; for i from 1 to nops(tbl) do tmp:=coeff(ser, q, i); ser:=expand(ser*mul(add((-q^i*t^j)^k*choose(abs(coeff(tmp, t, j)), k), k=0..nops(tbl)/i), j = 1..degree(tmp, t))); ser:=subs({seq(q^j=0, j=nops(tbl)+1..degree(ser, q))}, ser); out:=[op(out), [seq(abs(coeff(tmp, t, j)), j=1..degree(tmp, t))]]; end do; out; end: EULERitable([seq([seq(combinat[stirling2](n, k), k=1..n)], n=1..11)]);
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Mike Zabrocki, Sep 05 2005
STATUS
approved