|
Search: id:A136705
|
|
|
| A136705 |
|
Triangular sequence of coefficients of characteristic polynomials for Fibonacci-type matrix for a=1; b=1: example: M(4)= {{0, 0, 0, 1}, {1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 1}}. |
|
+0
1
|
|
| 1, 1, -1, -1, -1, 1, 1, 0, 1, -1, -1, 0, 0, -1, 1, 1, 0, 0, 0, 1, -1, -1, 0, 0, 0, 0, -1, 1, 1, 0, 0, 0, 0, 0, 1, -1, -1, 0, 0, 0, 0, 0, 0, -1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1
(list; table; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Row sums are:
{1, 0, -1, 1, -1, 1, -1, 1, -1, 1, -1};
If these are vector reversed and the absolute value taken, they are the same as the Galois field triangular sequence.
|
|
REFERENCES
|
J. Cigler, q-Fibonacci polynomials, Fibonacci Quarterly, 2003; http://homepage.univie.ac.at/johann.cigler/downloads/FIBQUART.pdf
|
|
FORMULA
|
t(n,m,d)=If[ n == m == d, 1, If[m == d && n == 1, 1, If[n == m + 1, 1, 0]]]
|
|
EXAMPLE
|
{1},
{1, -1},
{-1, -1, 1},
{1, 0, 1, -1},
{-1, 0, 0, -1, 1},
{1, 0, 0, 0, 1, -1},
{-1, 0, 0, 0, 0, -1, 1},
{1, 0, 0, 0, 0, 0, 1, -1},
{-1, 0, 0, 0, 0, 0, 0, -1, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 1, -1},
{-1, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1}
|
|
MATHEMATICA
|
T[n_, m_, d_] := If[ n == m == d, 1, If[m == d && n == 1, 1, If[n == m + 1, 1, 0]]]; M[d_] := Table[T[n, m, d], {n, 1, d}, {m, 1, d}]; Table[Det[M[d]], {d, 1, 10}]; Table[Det[M[d] - x*IdentityMatrix[d]], {d, 1, 10}]; a = Join[{{1}}, Table[CoefficientList[Det[M[d] - x*IdentityMatrix[d]], x], {d, 1, 10}]]; Flatten[a]
|
|
CROSSREFS
|
Sequence in context: A167686 A156706 A075743 this_sequence A141646 A129573 A118172
Adjacent sequences: A136702 A136703 A136704 this_sequence A136706 A136707 A136708
|
|
KEYWORD
|
uned,tabl,easy,more,sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 06 2008
|
|
|
Search completed in 0.004 seconds
|
