|
Search: id:A146887
|
|
|
| A146887 |
|
A vector matrix Markov based on the prime-adic version of the modular group gamma matrix: S = {{0, -1}, {1, 0}}; T = {{1, 1}, {0, 1}}; m(0)=T.S m(n)=T^Prime[n].S.m(n-1); v(n)=M[n]*v(0). |
|
+0
1
|
|
| 1, 1, 2, 9, 61, 662, 8545, 144603, 2738912, 62850373, 1819921905, 56354728682, 2083305039329, 85359151883807, 3668360225964372, 172327571468441677, 9129692927601444509, 538479555157016784354, 32838123171650422401085
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
REFERENCES
|
Weisstein, Eric W. "Modular Group Gamma." http : // mathworld.wolfram.com/ModularGroupGamma.html
|
|
FORMULA
|
S = {{0, -1}, {1, 0}}; T = {{1, 1}, {0, 1}}; m(n)=T^Prime[n].S.m(n-1); v(n)=M[n]*v(0); a(n)=v(n)[[1]].
|
|
MATHEMATICA
|
Clear[S, T, M, v, n] S = {{0, -1}, {1, 0}}; T = {{1, 1}, {0, 1}}; M[0] = T.S; M[n_] := M[n] = (MatrixPower[T, Prime[n]].S).M[n-1]; v[0] = {1, 0}; v[n_] := v[n] = M[n].v[0]; a = Table[v[n][[1]], {n, 0, 50}]
|
|
CROSSREFS
|
Sequence in context: A088182 A006155 A121870 this_sequence A113662 A052820 A100262
Adjacent sequences: A146884 A146885 A146886 this_sequence A146888 A146889 A146890
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 02 2008
|
|
|
Search completed in 0.002 seconds
|
