OFFSET
0,8
EXAMPLE
Rows begin:
1,_1,__1,___1,____1,_____1,_____1,______1, ...
1,_1,__3,___6,___10,____15,____21,_____28, ...
1,_3,__9,__24,___57,___120,___228,____399, ...
1,_6,_24,__84,__249,___654,__1554,___3384, ...
1,10,_57,_249,__907,__2880,__8178,__21156, ...
1,15,120,_654,_2880,_10821,_35949,_107952, ...
1,21,228,1554,_8178,_35949,137832,_473331, ...
1,28,399,3384,21156,107952,473331,1840560, ...
MATHEMATICA
m = 12; f[_, _] = 0;
Do[f[x_, y_] = (1 - x y)/((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 24 2003
STATUS
approved