|
Search: id:A121960
|
|
|
| A121960 |
|
Square inside a square star-like bonding graph matrix Markov: characteristic Polynomial:x(2 + x)(-2 + x^2)^2(-4 - 2 x + x^2). |
|
+0
1
|
|
| 1, 30, 59, 237, 698, 2346, 7452, 24308, 78328, 253992, 820976, 2658384, 8599520, 27834528, 90062784, 291471680, 943177600, 3052274304, 9877192448, 31963612416, 103435730432, 334726433280, 1083194735616, 3505297298432
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Secular roots are: {-2., -1.41421, -1.41421, -1.23607, 0., 1.41421, 1.41421, 3.23607}
|
|
FORMULA
|
M = {{0, 1, 0, 1, 1, 0, 0, 1}, {1, 0, 1, 0, 1, 1, 0, 0}, {0, 1, 0, 1, 0, 1, 1, 0}, {1, 0, 1, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 0}, {1, 0, 0, 1, 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, 0, 1, 1, 0, 0, 1}, {1, 0, 1, 0, 1, 1, 0, 0}, {0, 1, 0, 1, 0, 1, 1, 0}, {1, 0, 1, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 0}, {1, 0, 0, 1, 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: A048451 A154796 A004962 this_sequence A040870 A051488 A051283
Adjacent sequences: A121957 A121958 A121959 this_sequence A121961 A121962 A121963
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 02 2006
|
|
|
Search completed in 0.002 seconds
|
