|
Search: id:A120391
|
|
|
| A120391 |
|
6 X 6 markov of an open ended benzene bonding graph that a characteristic polynomial that has four real roots: x^6-5*x^4+6x^2-1. |
|
+0
1
|
|
| 0, 1, 1, 4, 6, 18, 24, 67, 85, 231, 287, 771, 949, 2536, 3108, 8285, 10133, 26980, 32966, 87726, 107140, 285035, 348037, 925799, 1130311, 3006511, 3670473, 9762796, 11918536, 31700713, 38700153, 102933300, 125660022, 334225018, 408017728
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
FORMULA
|
M = {{0, 1, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0}, {0, 1, 0, 1, 0, 0}, {0, 0, 1, 0, 1, 0}, {0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 1, 0}} v[1] = {0, 1, 1, 2, 3, 5} v[n_] := v[n] = M.v[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0}, {0, 1, 0, 1, 0, 0}, {0, 0, 1, 0, 1, 0}, {0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 1, 0}} v[1] = {0, 1, 1, 2, 3, 5} v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}] Det[M - x*IdentityMatrix[6]] Factor[%] aaa = Table[x /. NSolve[Det[M - x*IdentityMatrix[6]] == 0, x][[n]], {n, 1, 6}] Abs[aaa] a1 = Table[N[a[[n]]/a[[n - 1]]], {n, 7, 50}]
|
|
CROSSREFS
|
Adjacent sequences: A120388 A120389 A120390 this_sequence A120392 A120393 A120394
Sequence in context: A102020 A125133 A109310 this_sequence A064217 A026623 A026689
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com)), Jun 30 2006
|
|
|
Search completed in 0.002 seconds
|
