|
Search: id:A116567
|
|
|
| A116567 |
|
A sequential switched 6 2 X 2 matrix Markov based on the SL[2,2] matrices with Determinant =+/- 6, Trace=7. |
|
+0
1
|
|
| 0, 1, 2, 2, 40, 228, 228, 1440, 4248, 4248, 60336, 336528, 336528, 2172096, 6363360, 6363360, 90922176, 507352896, 507352896, 3273198336, 9590514048, 9590514048, 137016168192, 764553924864, 764553924864, 4932582054912, 14452487659008
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
A modulo seven version of the SL[2,Mod[Z,2]] matrices.
|
|
REFERENCES
|
Blyth and Robonson,Essential Student Algebra, V5,Groups,J.W. Arrowsmith, Bristol,1986, page 9
|
|
FORMULA
|
M1 = {{1, 0}, {0, 6}}; M2 = {{0, 1}, {6, 1}}; M3 = {{1, 1}, {6, 0}}; M4 = {{1, 0}, {1, 6}}; M5 = {{1, 1}, {0, 6}}; M6 = {{0, 1}, {6, 0}}; M[n_] = If[Mod[n, 6] == 0, M1, If[Mod[n, 6] == 1, M2, If[Mod[n, 6] == 2, M3, If[Mod[n, 6] == 3, M4, If[Mod[n, 6] == 4, M5, M6]]]]]; v[0] = {0, 1}; v[n_] := v[n] = M[n].v[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M1 = {{1, 0}, {0, 6}}; M2 = {{0, 1}, {6, 1}}; M3 = {{1, 1}, {6, 0}}; M4 = {{1, 0}, {1, 6}}; M5 = {{1, 1}, {0, 6}}; M6 = {{0, 1}, {6, 0}}; M[n_] = If[Mod[n, 6] == 0, M1, If[Mod[n, 6] == 1, M2, If[Mod[n, 6] == 2, M3, If[Mod[n, 6] == 3, M4, If[Mod[n, 6] == 4, M5, M6]]]]]; v[0] = {0, 1}; v[n_] := v[n] = M[n].v[n - 1] a = Table[v[n][[1]], {n, 0, 36}]
|
|
CROSSREFS
|
Adjacent sequences: A116564 A116565 A116566 this_sequence A116568 A116569 A116570
Sequence in context: A059523 A038623 A001121 this_sequence A087541 A015167 A086204
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 18 2006
|
|
|
Search completed in 0.002 seconds
|
