|
Search: id:A134035
|
|
|
| A134035 |
|
The 4 X 4 Fibonacci/ anti-Fibonacci game switched modulo 2 with its dual: MA1={{0,1},{1,1}};MB1={{0,1}{1,3}}; MA2={{0,1},1,3}};MB2={{1,0},{1,1}}; the game has two characteristic polynomials: (-3 + 5 x - 3 x^3 + x^4, -1 + x + 2 x^2 - 3 x^3 + x^4}. |
|
+0
1
|
|
| 2, 4, 8, 13, 21, 39, 64, 138, 236, 551, 963, 2315, 4078, 9892, 17468, 42481, 75069, 182691, 322900, 785970, 1389248, 3381731, 5977491, 14550695, 25719658, 62608228, 110665760, 269388997, 476169765, 1159120239, 2048851480
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
M[n_] := If[Mod[n,2] == 1, {{0, 1, 0, 0}, {1, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 3, 1}}, {{0, 1, 0, 0}, {3, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 1, 1}}]; v[1] = {0, 1, 1, 0}; v[n_] := v[n] = M[n].v[n - 1] a(n) =Sum[v[n][[i]],{i,1,4}]
|
|
MATHEMATICA
|
M[n_] := If[Mod[n, 2] == 1, {{0, 1, 0, 0}, {1, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 3, 1}}, {{0, 1, 0, 0}, {3, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 1, 1}}]; v[1] = {0, 1, 1, 0}; v[n_] := v[n] = M[n].v[n - 1]; a = Table[Apply[Plus, v[n]], {n, 1, 50}] Table[Det[M[n] - x*IdentityMatrix[4]], {n, 0, 1}]
|
|
CROSSREFS
|
Adjacent sequences: A134032 A134033 A134034 this_sequence A134036 A134037 A134038
Sequence in context: A005282 A046185 A073336 this_sequence A078157 A023600 A074467
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 11 2008
|
|
|
Search completed in 0.002 seconds
|
