%I #26 Jul 12 2020 10:53:32
%S 1,1,1,1,0,1,1,-1,-6,1,1,-2,-11,0,1,1,-3,-14,47,90,1,1,-4,-15,136,241,
%T 0,1,1,-5,-14,261,106,-2281,-1680,1,1,-6,-11,416,-639,-8492,-3779,0,1,
%U 1,-7,-6,595,-2294,-17523,35344,104831,34650,1,1,-8,1,792,-5135,-25624,188049,395008,-110207,0,1
%N Square array T(n,k), n >= 0, k >= 0, read by antidiagonals, where T(n,k) = Sum_{j=0..n} (-k)^j * binomial(n,j)^3.
%C Column k is the diagonal of the rational function 1 / (1 + y + z + x*y + y*z - k*z*x - (k-1)*x*y*z).
%C Column k is the diagonal of the rational function 1 / ((1-x)*(1-y)*(1-z) + k*x*y*z).
%H Seiichi Manyama, <a href="/A336179/b336179.txt">Antidiagonals n = 0..139, flattened</a>
%e Square array begins:
%e 1, 1, 1, 1, 1, 1, ...
%e 1, 0, -1, -2, -3, -4, ...
%e 1, -6, -11, -14, -15, -14, ...
%e 1, 0, 47, 136, 261, 416, ...
%e 1, 90, 241, 106, -639, -2294, ...
%e 1, 0, -2281, -8492, -17523, -25624, ...
%t Unprotect[Power]; 0^0 = 1; T[n_, k_] := Sum[(-k)^j * Binomial[n, j]^3, {j, 0, n}]; Table[T[k, n - k], {n, 0, 10}, {k, 0, n}] // Flatten (* _Amiram Eldar_, Jul 11 2020 *)
%Y Columns k=0-3 give: A000012, A245086, A336181, A336182.
%Y Main diagonal gives A336180.
%Y Cf. A307884, A336163.
%K sign,tabl
%O 0,9
%A _Seiichi Manyama_, Jul 10 2020