OFFSET
0,25
LINKS
Seiichi Manyama, Antidiagonals n = 0..139, flattened
EXAMPLE
Square array begins:
1, 1, 1, 1, 1, ...
0, -1, -1, -1, -1, ...
0, -1, 1, 1, 1, ...
0, 0, 0, -6, -6, ...
0, 0, 0, 0, 24, ...
0, 1, -3, 3, 3, ...
MATHEMATICA
nmax = 12;
col[k_] := CoefficientList[Product[Sum[(-1)^j j! x^(i j), {j, 0, k}], {i, 1, nmax+1}] + O[x]^(nmax+1), x]; M = PadRight[col[#], nmax+1]& /@ Range[0, nmax] // Transpose;
A[n_, k_] := M[[n+1, k+1]];
Table[A[n-k, k], {n, 0, nmax}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, Nov 15 2020 *)
CROSSREFS
AUTHOR
Seiichi Manyama, Oct 03 2017
STATUS
approved