|
| |
|
|
A106709
|
|
First entry of the vector (M^n)v, where M is the 2 X 2 matrix [[0,-2],[1,5]] and v is the column vector [0,1].
|
|
1
| |
|
|
0, -2, -10, -46, -210, -958, -4370, -19934, -90930, -414782, -1892050, -8630686, -39369330, -179585278, -819187730, -3736768094, -17045465010, -77753788862, -354678014290, -1617882493726, -7380056440050, -33664517212798, -153562473183890
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Real Pisot roots (the eigenvalues of M): 0.438447, 4.56155.
|
|
|
FORMULA
| a(n)=first entry of v[n], where v[n]=Mv[n-1], M is the 2 X 2 matrix [[0, -2], [1, 5]] and v[0] is the column vector [0,1].
|
|
|
MAPLE
| with(linalg): M:=matrix(2, 2, [0, -2, 1, 5]): v[0]:=matrix(2, 1, [0, 1]): for n from 1 to 22 do v[n]:=multiply(M, v[n-1]) od: seq(v[n][1, 1], n=0..22);
|
|
|
MATHEMATICA
| M = {{0, -2}, {1, 5}} v[1] = {0, 1} v[n_] := v[n] = M.v[n - 1] a = Table[Abs[v[n][[1]]], {n, 1, 50}]
|
|
|
CROSSREFS
| Equals -2*A107839(n-1), n>0.
Sequence in context: A080643 A032389 A204091 * A137193 A006213 A137635
Adjacent sequences: A106706 A106707 A106708 * A106710 A106711 A106712
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 30 2005
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Apr 30 2006
|
| |
|
|
