OFFSET
1,2
LINKS
Alois P. Heinz, Rows n = 1..141, flattened
EXAMPLE
Triangle begins:
1;
5, 2;
21, 15, 3;
85, 84, 30, 4;
341, 425, 210, 50, 5;
1365, 2046, 1275, 420, 75, 6;
MAPLE
P:= proc(n) option remember; local M; M:= Matrix(n, (i, j)-> binomial(i-1, j-1)); (M^4-M)/3 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
rows=11; M[n_] := M[n] = Array[Binomial, {n, n}, {0, 0}]; P[n_] := (MatrixPower[ M[n], 4] - M[n])/3; Table[P[rows+1][[n+1, 1 ;; n]], {n, 1, rows}] // Flatten (* Jean-François Alcover, Mar 11 2015 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gary W. Adamson, Jun 17 2004
EXTENSIONS
Edited and more terms from Alois P. Heinz, Oct 07 2009
STATUS
approved