OFFSET
-3,16
COMMENTS
Rows -3<=k<0 are used to form the shape of a perfect triangle.
LINKS
Alois P. Heinz, Rows n = -3..137, flattened
EXAMPLE
MAPLE
cor:= proc(k) option remember; `if`(k<=0, [1, 0, 0, 1], [seq(coeff( -(1-x-x^4) *(1-x)^(k-1), x, j), j=1..k+3)]) end: T:= proc(k, m) local l, j; l:= cor(k); `if`(k<0 or m<0 or m>nops(l), 0, l[m]) end: seq(seq(T(k, m), m=1..k+4), k=-3..13);
MATHEMATICA
cor[k_] := cor[k] = If[k <= 0, {1, 0, 0, 1}, Table[Coefficient[-(1-x-x^4)*(1-x)^(k-1), x, j], {j, 1, k+3}]]; T[k_, m_] := Module[{l, j}, l = cor[k]; If[k<0 || m<0 || m>Length[l], 0, l[[m]]]]; Table[Table[T[k, m], {m, 1, k+4}], {k, -3, 13}] // Flatten (* Jean-François Alcover, Jan 15 2014, translated from Maple *)
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Alois P. Heinz, Oct 03 2008
STATUS
approved