|
|
A202877
|
|
Array: row n shows the coefficients of the characteristic polynomial of the n-th principal submatrix of the symmetric matrix A202875; by antidiagonals.
|
|
2
|
|
|
1, -1, 1, -6, 1, 1, -11, 27, -1, 1, -17, 84, -97, 1, 1, -23, 177, -497, 311, -1, 1, -29, 306, -1405, 2546, -925, 1, 1, -35, 471, -3034, 9375, -11628, 2628, -1, 1, -41, 672, -5599, 24817, -55080, 48875, -7247, 1, 1, -47, 909, -9316, 54164
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
Let p(n)=p(n,x) be the characteristic polynomial of the n-th principal submatrix. The zeros of p(n) are positive, and they interlace the zeros of p(n+1).
|
|
LINKS
|
|
|
EXAMPLE
|
Top of the array:
1...-1
1...-6....1
1...-11...27...-1
1...-17...84...-97...1
|
|
MATHEMATICA
|
f[k_] := -1 + Fibonacci[k + 2]
U[n_] :=NestList[Most[Prepend[#, 0]] &, #, Length[#] - 1] &[Table[f[k], {k, 1, n}]];
L[n_] := Transpose[U[n]];
F[n_] := CharacteristicPolynomial[L[n].U[n], x];
c[n_] := CoefficientList[F[n], x]
TableForm[Flatten[Table[F[n], {n, 1, 10}]]]
Table[c[n], {n, 1, 12}]
Flatten[%]
TableForm[Table[c[n], {n, 1, 10}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|