OFFSET
0,8
LINKS
Seiichi Manyama, Antidiagonals n = 0..50, flattened
EXAMPLE
Square array begins:
1, 0, 0, 0, 0, 0, 0, ...
1, 0, 2, 0, 6, 0, 20, ...
1, 0, 10, 12, 198, 560, 5020, ...
1, 0, 28, 84, 2076, 14240, 213460, ...
1, 0, 60, 324, 12060, 146680, 3479700, ...
1, 0, 110, 924, 49170, 922680, 32108060, ...
1, 0, 182, 2184, 158418, 4226040, 203474180, ...
MATHEMATICA
A[0, 0] = 1; A[n_, k_] := Coefficient[Expand[Sum[j * (x^j + x^(-j)), {j, 0, n}]^k], x, 0]; Table[A[n-k, k], {n, 0, 10}, {k, n, 0, -1}] // Flatten (* Amiram Eldar, Dec 16 2018 *)
PROG
(PARI) T(n, k) = my(t=sum(j=0, n, j*(x^j + x^(-j)))^k); polcoef(numerator(t), poldegree(denominator(t))); \\ Michel Marcus, Dec 17 2018
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Seiichi Manyama, Dec 15 2018
STATUS
approved