OFFSET
1,2
EXAMPLE
Triangle begins:
1;
6, 2;
31, 18, 3;
156, 124, 36, 4;
781, 780, 310, 60, 5;
3906, 4686, 2340, 620, 90, 6;
MAPLE
P:= proc(n) option remember; local M; M:= Matrix(n, (i, j)-> binomial(i-1, j-1)); (M^5-M)/4 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
max = 11; M = Table[If[k > n, 0, Binomial[n, k]], {n, 0, max}, {k, 0, max} ];
T = (MatrixPower[M, 5] - M)/4;
Table[T[[n + 1]][[1 ;; n]] , {n, 1, max}] // Flatten (* Jean-François Alcover, May 24 2016 *)
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