|
Search: id:A114952
|
|
|
| A114952 |
|
Matrix markov for 90 degree complex rotation of A000073 Tribonacci. |
|
+0
1
|
|
| 0, 0, 1, 0, 1, 0, 1, 1, 2, 2, 3, 4, 7, 6, 11, 13, 24, 20, 37, 44, 81, 68, 125, 149, 274, 230, 423, 504, 927, 778, 1431, 1705, 3136, 2632, 4841, 5768, 10609, 8904, 16377, 19513, 35890, 30122, 55403, 66012, 121415, 101902, 187427, 223317, 410744, 344732
(list; graph; listen)
|
|
|
OFFSET
|
0,9
|
|
|
COMMENT
|
The real and imaginary subsequences seem to be new as well: aoutreal = Table[Abs[Re[v[n][[1]]]], {n, 0, 25}] {0, 1, 1, 1, 2, 3, 7, 11,24, 37, 81, 125, 274, 423, 927, 1431, 3136, 4841, 10609, 16377, 35890, 55403, 121415, 187427, 410744, 634061} aoutIm = Table[Abs[Im[v[n][[1]]]], {n, 0, 25}] {0, 0, 0, 1, 2, 4, 6, 13, 20, 44, 68, 149, 230, 504, 778, 1705, 2632, 5768, 8904, 19513, 30122, 66012, 101902, 223317, 344732, 755476} I may not be searching them right.
|
|
FORMULA
|
M = {{0, 1, 0}, {0, 0, 1}, {-I, -1, I}}; v[0] = {0, 1, 1}; v[n_] := v[n] = M.v[n - 1] {a(n),a(n+1)}= {Abs[Re[v[n][[1]]]], Abs[Im[v[n][[1]]]]}
|
|
MATHEMATICA
|
M = {{0, 1, 0}, {0, 0, 1}, {-I, -1, I}}; v[0] = {0, 1, 1}; v[n_] := v[n] = M.v[n - 1] aout = Flatten[Table[{Abs[Re[v[n][[1]]]], Abs[Im[v[n][[1]]]]}, {n, 0, 25}]]
|
|
CROSSREFS
|
Cf. A000073.
Sequence in context: A065482 A054241 A088633 this_sequence A086969 A014692 A058670
Adjacent sequences: A114949 A114950 A114951 this_sequence A114953 A114954 A114955
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 21 2006
|
|
|
Search completed in 0.002 seconds
|
