|
Search: id:A123968
|
|
|
| A123968 |
|
Coefficient of quadratic factor of n centered 5 X 5 tridiagonal matric characteristic polynomial: p(n,x)=(x-(n-1))*(x-n)*(x-(n+1)*(x^2-2*n*x+a(n)). |
|
+0
1
|
|
| -2, 1, 6, 13, 22, 33, 46, 61, 78, 97, 118, 141, 166, 193, 222, 253, 286, 321, 358, 397, 438, 481, 526, 573, 622
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Chromatic polynomials are embedded in these characteristic polynomials. The quadratic is a simple beta integer sequence: Table[ NSolve[(-3 + n^2 - 2 n x + x^2) == 0, x][[2]], {n, 1, 25}] has roots: n+Sqrt[3]
Is this a shifted version of A028872? - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 18 2008
|
|
FORMULA
|
M(n)={{n, -1, 0, 0, 0}, {-1, n, -1, 0, 0}, {0, -1, n, -1, 0}, {0, 0, -1, n, -1}, {0, 0, 0, -1, m}}; p(n,x)=Factor(CharacteristicPolynomial(M(n)))=(-1 + n - x)((n - x)(1 + n - x)(-3 + n^2 - 2 n x + x^2) a(n)=n^2-3
|
|
EXAMPLE
|
A quadratic set with interesting roots.
1->x^2-2*x-2
2->x^2-4*x+1
3->x^2-6*x-6
4->13 - 8 x + x^2
5->22 - 10 x + x^2
6->33 - 12 x + x^2
|
|
MAPLE
|
with(combinat):seq(fibonacci(3, i)-4, i=1..55); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Mar 20 2008
|
|
MATHEMATICA
|
M[n_] := {{n, -1, 0, 0, 0}, {-1, n, -1, 0, 0}, {0, -1, n, -1, 0}, {0, 0, -1, n, -1}, {0, 0, 0, -1, n}}; p[n_, x_] = Factor[CharacteristicPolynomial[M[n], x]] Table[ -3 + n^2, {n, 1, 25}]
|
|
CROSSREFS
|
Sequence in context: A128534 A002562 A136456 this_sequence A068797 A049951 A025263
Adjacent sequences: A123965 A123966 A123967 this_sequence A123969 A123970 A123971
|
|
KEYWORD
|
uned,probation,sign
|
|
AUTHOR
|
Gary Adamson and Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 29 2006
|
|
|
Search completed in 0.002 seconds
|
