|
%I #16 Nov 22 2019 03:34:09
%S 1,1,0,1,1,14,80,14,1,1,78,1251,2160,1251,78,1,1,252,9682,60444,
%T 121200,60444,9682,252,1,1,620,49355,760800,3785750,6136800,3785750,
%U 760800,49355,620,1,1,1290,190746,5950070,60898395,228400980,356570960,228400980,60898395,5950070,190746,1290,1
%N Triangular array, read by rows: T(n,k) = [(w*x*y*z)^k] (-1 + (1 + w + 1/w)*(1 + x + 1/x)*(1 + y + 1/y)*(1 + z + 1/z))^n for -n <= k <= n.
%F T(n,k) = T(n,-k).
%e Triangle begins:
%e 1;
%e 1, 0, 1;
%e 1, 14, 80, 14, 1;
%e 1, 78, 1251, 2160, 1251, 78, 1;
%e 1, 252, 9682, 60444, 121200, 60444, 9682, 252, 1;
%o (PARI) {T(n, k) = polcoef(polcoef(polcoef(polcoef((-1+(1+w+1/w)*(1+x+1/x)*(1+y+1/y)*(1+z+1/z))^n, k), k), k), k)}
%Y T(n,0) gives A328875.
%Y Cf. A260492, A329816, A329819.
%K nonn,tabf
%O 0,6
%A _Seiichi Manyama_, Nov 21 2019
|
