OFFSET
1,3
FORMULA
E.g.f.: x*(exp(x*(exp(x) -1 + y)) - 1 + y) (letting T(1,1)=1).
EXAMPLE
Triangle T(n,k) begins:
0;
0, 2;
6, 0, 3;
12, 24, 0, 4;
80, 60, 60, 0, 5;
390, 480, 180, 120, 0, 6;
2352, 2730, 1680, 420, 210, 0, 7;
...
MATHEMATICA
nn=7; f[list_]:=Select[list, #>0&]; a=x (Exp[x]-1+y); Prepend[Drop[Map[Insert[#, 0, -2]&, Map[f, Range[0, nn]!CoefficientList[Series[x (Exp[a]-1+y), {x, 0, nn}], {x, y}]]], 2], {0}]//Grid
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Geoffrey Critzer, Dec 08 2012
STATUS
approved