A261358 Pentatope of coefficients in expansion of (1 + x + y + 2*z)^n.
1, 1, 1, 1, 2, 1, 2, 4, 1, 4, 4, 1, 3, 3, 6, 3, 6, 12, 3, 12, 12, 1, 3, 6, 3, 12, 12, 1, 6, 12, 8, 1, 4, 4, 8, 6, 12, 24, 6, 24, 24, 4, 12, 24, 12, 48, 48, 4, 24, 48, 32, 1, 4, 8, 6, 24, 24, 4, 24, 48, 32, 1, 8, 24, 32, 16, 1, 5, 5, 10, 10, 20, 40, 10, 40, 40, 10, 30, 60, 30, 120, 120, 30, 120, 240, 160, 5, 40, 120, 160, 80, 1, 5, 10, 10, 40, 40, 10, 60, 120, 80, 5, 40, 120, 160, 80, 1, 10, 40, 80, 80, 32
Offset: 0
Examples
The 5th slice (n=4) of this 4D simplex starts at a(35). It comprises a 3D tetrahedron of 35 terms whose sum is 625. It is organized as follows: . 1 . . 4 . 4 8 . . 6 . 12 24 . 6 24 24 . . 4 . 12 24 . 12 48 48 . 4 24 48 32 . . 1 . 4 8 . 6 24 24 . 4 24 48 32 . 1 8 24 32 16
Programs
-
Maple
p:= proc(i, j, k, l) option remember; if l<0 or j<0 or i<0 or i>l or j>i or k<0 or k>j then 0 elif {i, j, k, l}={0} then 1 else p(i, j, k, l-1) +p(i-1, j, k, l-1) +p(i-1, j-1, k, l-1)+2*p(i-1, j-1, k-1, l-1) fi end: seq(seq(seq(seq(p(i, j, k, l), k=0..j), j=0..i), i=0..l), l=0..5); # Adapted from Alois P. Heinz's Maple program for A261356
Formula
T(i+1,j,k,l) = 2*T(i,j-1,k-1,l-1) + T(i,j-1,k-1,l) + T(i,j-1,k,l) + T(i,j,k,l); a(i,j,k,-1)=0,...; a(0,0,0,0)=1.
T(n,i,j,k) = 2^k*binomial(n,i)*binomial(i,j)*binomial(j,k). - Dimitri Boscainos, Aug 21 2015
Comments