|
Search: id:A121957
|
|
|
| A121957 |
|
Pentagonal star bonding graph 10 X 10 matrix Markov: characteristic Polynomial:(1 + x)(1 - 4 x - 4 x^2 + x^3 + x^4)(-2 + 12 x + 7 x^2 -7 x^3 - 2 x^4 + x^5). |
|
+0
1
|
|
| 0, 43, 75, 303, 853, 2786, 8608, 27261, 85646, 270137, 851245, 2684011, 8462548, 26684106, 84143305, 265331874, 836695587, 2638426981, 8320048505, 26236520890, 82734709152, 260896992401, 822717574538, 2594372978149
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
M = {{0, 1, 0, 0, 1, 1, 0, 0, 0, 1}, {1, 0, 1, 0, 0, 1, 1, 0, 0, 0}, {0, 1, 0, 1, 0, 0, 1, 1, 0, 0}, {0, 0, 1, 0, 1, 0, 0, 0, 1, 0}, {1, 0, 0, 1, 0, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0, 0, 0}} v[1] = Table[Fibonacci[n], {n, 0, 9}] v[n_] := v[n] = M.v[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 1, 1, 0, 0, 0, 1}, {1, 0, 1, 0, 0, 1, 1, 0, 0, 0}, {0, 1, 0, 1, 0, 0, 1, 1, 0, 0}, {0, 0, 1, 0, 1, 0, 0, 0, 1, 0}, {1, 0, 0, 1, 0, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0, 0, 0}} v[1] = Table[Fibonacci[n], {n, 0, 9}] v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A054807 A139932 A080177 this_sequence A118075 A045238 A139982
Adjacent sequences: A121954 A121955 A121956 this_sequence A121958 A121959 A121960
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 01 2006
|
|
|
Search completed in 0.002 seconds
|
