|
%I #20 May 12 2015 03:52:46
%S 1,1,1,1,1,1,1,1,1,2,3,4,5,6,7,6,5,4,3,2,1,1,3,6,10,15,21,28,33,36,37,
%T 36,33,28,21,15,10,6,3,1,1,4,10,20,35,56,84,116,149,180,206,224,231,
%U 224,206,180,149,116,84,56,35
%N Septinomial (also called heptanomial) coefficient array.
%C The sequence of step width of this staircase array is [1,6,6,...], hence the degree sequence for the row polynomials is [0,6,12,18,...]= A008588.
%C The column sequences (without leading zeros) are for k=0..6 those of the lower triangular array A007318 (Pascal) and for k=7..9: A063267, A063417, A063418. Row sums give A000420 (powers of 7). Central coefficients give A025012.
%D L. Comtet, Advanced Combinatorics, Reidel, 1974, pp. 77,78.
%H T. D. Noe, <a href="/A063265/b063265.txt">Rows n = 0..25, flattened</a>
%H S. R. Finch, P. Sebah and Z.-Q. Bai, <a href="http://arXiv.org/abs/0802.2654">Odd Entries in Pascal's Trinomial Triangle</a> (arXiv:0802.2654)
%F a(n, k)=0 if n=-1 or k<0 or k >= 6*n; a(0, 0)=1; a(n, k)= sum(a(n-1, k-j), j=0..6) else.
%F G.f. for row n: (sum(x^j, j=0..6))^n.
%F G.f. for column k: (x^(ceiling(k/6)))*N7(k, x)/(1-x)^(k+1) with the row polynomials of the staircase array A063266(k, m).
%F T(n,k) = sum {i = 0..floor(k/7)} (-1)^i*binomial(n,i)*binomial(n+k-1-7*i,n-1) for n >= 0 and 0 <= k <= 6*n. - _Peter Bala_, Sep 07 2013
%e {1};
%e {1, 1, 1, 1, 1, 1, 1};
%e {1, 2, 3, 4, 5, 6, 7, 6, 5, 4, 3, 2, 1};
%e ...
%e N7(k,x)= 1 for k=0..6, N7(7,x)= 6-15*x+20*x^2-15*x^3+6*x^4-x^5 (from A063266).
%p #Define the r-nomial coefficients for r = 1, 2, 3, ...
%p rnomial := (r,n,k) -> add((-1)^i*binomial(n,i)*binomial(n+k-1-r*i,n-1), i = 0..floor(k/r)):
%p #Display the 7-nomials as a table
%p r := 7: rows := 10:
%p for n from 0 to rows do
%p seq(rnomial(r,n,k), k = 0..(r-1)*n)
%p end do;
%p # _Peter Bala_, Sep 07 2013
%t Flatten[Table[CoefficientList[(1 + x + x^2 + x^3 + x^4 + x^5 + x^6)^n, x], {n, 0, 25}]] (* _T. D. Noe_, Apr 04 2011 *)
%Y The q-nomial arrays are for q=2..8: A007318 (Pascal), A027907, A008287, A035343, A063260, A063265, A171890.
%K nonn,easy,tabf
%O 0,10
%A _Wolfdieter Lang_, Jul 24 2001
|
