|
| |
|
|
A147852
|
|
Real part of vector Matrix Markov based on a complex simplex Matrix: M = {{1, 1, 0},{1, 0, 1},{1, I, 0}}; with characteristic Polynomial: (1 - I) + (1 + I)x + x^2 - x^3.
|
|
0
| |
|
|
0, 1, 2, 3, 6, 10, 18, 32, 54, 94, 158, 262, 430, 682, 1054, 1554, 2126, 2554, 2158, -710, -9874, -33782, -90322, -216694, -488530, -1057206, -2221906, -4566678, -9220498, -18345462, -36046738, -70057814, -134836562, -257215734
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| The ratios appear to be cotangent like.
|
|
|
FORMULA
| M = {{1, 1, 0},{1, 0, 1},{1, I, 0}}; v(n)=M.v(n-1); a(n)=Real_part(v(n)[[1]]).
|
|
|
MATHEMATICA
| Clear[M, a, n, v]; M = {{1, 1, 0}, {1, 0, 1}, {1, I, 0}}; v[0] = {0, 1, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[Re[v[n][[1]]], {n, 0, 50}]
|
|
|
CROSSREFS
| Sequence in context: A066000 A011957 A019436 * A061279 A018073 A181649
Adjacent sequences: A147849 A147850 A147851 * A147853 A147854 A147855
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 15 2008
|
| |
|
|
