|
Search: id:A122603
|
|
|
| A122603 |
|
8 X 8 Vector Matrix Markov for Steinbach characteristic polynomial: 1 + 4 x - 10 x^2 - 10 x^3 + 15 x^4 + 6 x^5 - 7 x^6 - x^7 +x^8. |
|
+0
1
|
|
| 1, 1, 2, 64, 1509, 27589, 453949, 7116398, 108922001, 1646720185, 24736055959, 370331348806, 5534979578369, 82658873060821, 1233993261692386, 18420012632366897, 274961514388882353, 4104700898601864514
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
REFERENCES
|
P. Steinbach, Field Guide to Simple Graphs. Design Lab, Albuquerque NM, 1990.
|
|
FORMULA
|
M = {{0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, {-1, -4, 10, 10, -15, -6, 7, 1}}; v[1] = Table[1, {n, 1, 8}]; v[n_] := v[n] = M.v[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, {-1, -4, 10, 10, -15, -6, 7, 1}}; v[1] = Table[1, {n, 1, 8}]; v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, 100, 4}]
|
|
CROSSREFS
|
Cf. A066170.
Sequence in context: A120121 A047707 A134939 this_sequence A127691 A013822 A010047
Adjacent sequences: A122600 A122601 A122602 this_sequence A122604 A122605 A122606
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Sep 20 2006
|
|
|
Search completed in 0.002 seconds
|
