| MATHEMATICA
|
A268442Matrix[dim_] := Module[ {v, r, A},
v = Table[Subscript[x, j], {j, 1, dim}];
r = Table[Subscript[x, j]->1, {j, 1, n}];
A = Table[Table[BellY[n, k, v], {k, 0, dim}], {n, 0, dim}];
Table[Table[MonomialList[Inverse[A][[n, k]]/. r[[1]],
v, Lexicographic] /. r, {k, 1, n}] // Flatten, {n, 1, dim}]];
A268442Matrix[7] // Flatten
|