OFFSET
1,2
EXAMPLE
Triangle begins:
1
9 2
73 27 3
585 292 54 4
4681 2925 730 90 5
37449 28086 8775 1460 135 6
MAPLE
P:= proc(n) option remember; local M; M:= Matrix(n, (i, j)-> binomial(i-1, j-1)); (M^8-M)/7 end: T:= (n, k)-> P(n+1)[n+1, k]: seq(seq(T(n, k), k=1..n), n=1..11); # Alois P. Heinz, Oct 07 2009
MATHEMATICA
P[n_] := P[n] = With[{M = Array[Binomial[#1-1, #2-1]&, {n, n}]}, (MatrixPower[M, 8] - M)/7]; T[n_, k_] := P[n+1][[n+1, k]]; Table[ Table[T[n, k], {k, 1, n}], {n, 1, 11}] // Flatten (* Jean-François Alcover, Jan 28 2015, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gary W. Adamson, Jun 17 2004
EXTENSIONS
Edited with more terms by Alois P. Heinz, Oct 07 2009
STATUS
approved