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, -3, -3, ...
0, 0, 0, 0, 4, ...
0, 1, -3, 0, 0, ...
MATHEMATICA
nmax = 12;
col[k_] := col[k] = Product[1+Sum[(-1)^j*j*x^(i*j), {j, 1, k}], {i, 1, 2 nmax}] + O[x]^(2 nmax) // CoefficientList[#, x]&;
A[n_, k_] := If[n == 0, 1, If[k == 0, 0, col[k][[n+1]]]];
Table[A[n-k, k], {n, 0, nmax}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, Feb 21 2021 *)
CROSSREFS
AUTHOR
Seiichi Manyama, Oct 05 2017
STATUS
approved