OFFSET
0,5
EXAMPLE
1;
0,1;
-1,-2,1;
-2,0,-6,1;
-3,0,18,-12,1;
...
MATHEMATICA
rows = 12; row[n_] := Join[CoefficientList[(x+n-1)^n + O[x]^(n+1), x], Table[0, {rows-n-1}]]; M = Inverse[Table[row[n], {n, 0, rows-1}]]; Table[ M[[n+1, k+1]], {n, 0, rows-1}, {k, 0, n}] // Flatten (* Jean-François Alcover, Apr 14 2017 *)
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Christian G. Bower, Apr 25 2000
STATUS
approved