OFFSET
0,5
COMMENTS
If 1 is subtracted from every element of the table, the resulting table forms the coefficients of f(x,y)^3, where f(x,y) = 1/[(1-x)(1-y)] + xy*f(x,y)^3.
MATHEMATICA
m = 11; f[_, _] = 0;
Do[f[x_, y_] = 1/((1 - x)(1 - y)) + x y f[x, y]^3 + O[x]^m, {m}];
T =CoefficientList[# + O[y]^m, y]& /@ CoefficientList[f[x, y], x];
Table[T[[n-k+1, k]], {n, 1, m}, {k, 1, n}] // Flatten (* Jean-François Alcover, Nov 15 2019 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Paul D. Hanna, Jul 27 2003
STATUS
approved