OFFSET
0,1
COMMENTS
This triangle here assigns the characteristic polynomial 2 to the matrix with 0 columns and zero rows, in the spirit of keeping a "virtual" 2 on the antidiagonals of these tri-antidiagonal matrices.
EXAMPLE
2;
2, -1;
-3,2, 1;
-4, 6, 2, -1;
5, -10, -9, 2, 1;
6, -19, -16, 12, 2, -1;
-7,28, 42, -22, -15, 2, 1;
-8, 44, 68, -74, -28,18, 2, -1;
9, -60, -138, 126, 115, -34, -21, 2, 1;
MATHEMATICA
An[d_] := Table[If[n + m - 1 == d, 2, If[n + m == d, -1, If[n + m - 2 == d, -1, 0]]], {n, 1, d}, {m, 1, d}]; Join[An[1], Table[CoefficientList[CharacteristicPolynomial[An[d], x], x], {d, 1, 20}]]; Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 31 2006
STATUS
approved