|
| |
|
|
A130844
|
|
Vector matrix Markov of a Salem characteristic polynomial: (-1 + x - x^2 - 2 x^3 + x^4)=(1+x)*(-1 + 2 x - 3x^2 + x^3).
|
|
0
| |
|
|
0, 3, 5, 17, 36, 87, 198, 464, 1075, 2503, 5815, 13522, 31431, 73072, 169868, 394899, 918025, 2134153, 4961300, 11533627, 26812426, 62331332, 144902763, 336858059, 783099975, 1820486578, 4232117835, 9838480332, 22871691896, 53170232867
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
REFERENCES
| I've been working on the Mandelbrot IFS problem again. http://classes.yale.edu/fractals/Aut06/PrxsFinal2/PrxsFinal2Ans.html I found this matrix there bottom of the page: {{0,1,1,0}, {1,1,0,1}, {1,1,0,0}, {1,0,0,1}} as the definition of a driven IFS on the final at Yale ( by Dr. Frame probably, not Mandelbrot).
|
|
|
FORMULA
| M={{0,1,1,0}, {1,1,0,1}, {1,1,0,0}, {1,0,0,1}}; v[n]=M.v[n-1]; a(n) = v[n][[1]]
|
|
|
MATHEMATICA
| M = {{0, 1, 1, 0}, {1, 1, 0, 1}, {1, 1, 0, 0}, {1, 0, 0, 1}}; v[1] = {0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[Floor[v[n][[1]]], {n, 1, 50}]
|
|
|
CROSSREFS
| Sequence in context: A148508 A148509 A148510 * A148511 A148512 A148513
Adjacent sequences: A130841 A130842 A130843 * A130845 A130846 A130847
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Roger L Bagula (rlbagulatftn(AT)yahoo.com), Jul 20 2007
|
| |
|
|
