|
Search: id:A122015
|
|
|
| A122015 |
|
Semi-Linear ( two branches) twist isomer bonding 8 X 8 matrix Markov : ( change to second permutaion 4 X 4) Characteristic polynomial: (1 + 4 x + 6 x^2 + 4 x^3 - x^4 - 4 x^5 - 3 x^6 + x^8). |
|
+0
1
|
|
| 1, 11, 41, 54, 129, 256, 529, 1083, 2233, 4606, 9505, 19611, 40513, 83657, 172805, 356963, 737425, 1523422, 3147277, 6502104, 13433121, 27752487, 57336161, 118455746, 244728361, 505606731, 1044579861, 2158095229, 4458611849
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
M = {{0, 1, 1, 0, 0, 1, 0, 0}, {1, 0, 0, 1, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 1, 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}, {1, 0, 0, 0, 0, 0, 0, 0}} v[1] = Table[Fibonacci[n], {n, 1, 8}] v[n_] := v[n] = M.v[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 1, 0, 0, 1, 0, 0}, {1, 0, 0, 1, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 1, 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}, {1, 0, 0, 0, 0, 0, 0, 0}} v[1] = Table[Fibonacci[n], {n, 1, 8}] v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A121171 A065079 A065049 this_sequence A078653 A040167 A040170
Adjacent sequences: A122012 A122013 A122014 this_sequence A122016 A122017 A122018
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 11 2006
|
|
|
Search completed in 0.002 seconds
|
