OFFSET
0,11
COMMENTS
Row lengths are 1,8,15,22,... = 1+7n = A016993(n). Row sums are 1,8,64,... = 8^n = A001018(n). M. F. Hasler, Jun 17 2012
LINKS
T. D. Noe, Rows n = 0..25, flattened
FORMULA
Row n has g.f. (1+x+...+x^7)^n.
T(n,k) = sum {i = 0..floor(k/8)} (-1)^i*binomial(n,i)*binomial(n+k-1-8*i,n-1) for n >= 0 and 0 <= k <= 7*n. - Peter Bala, Sep 07 2013
EXAMPLE
Array begins:
[1]
[1, 1, 1, 1, 1, 1, 1, 1]
[1, 2, 3, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1]
...
MAPLE
#Define the r-nomial coefficients for r = 1, 2, 3, ...
rnomial := (r, n, k) -> add((-1)^i*binomial(n, i)*binomial(n+k-1-r*i, n-1), i = 0..floor(k/r)):
#Display the 8-nomials as a table
r := 8: rows := 10:
for n from 0 to rows do
seq(rnomial(r, n, k), k = 0..(r-1)*n)
end do;
# Peter Bala, Sep 07 2013
MATHEMATICA
Flatten[Table[CoefficientList[(1 + x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7)^n, x], {n, 0, 10}]] (* T. D. Noe, Apr 04 2011 *)
PROG
(PARI) concat(vector(5, k, Vec(sum(j=0, 7, x^j)^k))) \\ M. F. Hasler, Jun 17 2012
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
N. J. A. Sloane, Oct 19 2010
STATUS
approved