|
Search: id:A106707
|
|
|
| A106707 |
|
First entry of the vector (M^n)v, where M is the 2 X 2 matrix [[0,-1],[1,4]] and v is the column vector [0,1]. |
|
+0
3
|
|
| 0, -1, -4, -15, -56, -209, -780, -2911, -10864, -40545, -151316, -564719, -2107560, -7865521, -29354524, -109552575, -408855776, -1525870529, -5694626340, -21252634831, -79315912984, -296011017105, -1104728155436, -4122901604639, -15386878263120, -57424611447841
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Real Pisot roots (the eigenvalues of M): 2-sqrt(3)=0.267949, 2+sqrt(3)=3.73205.
|
|
LINKS
|
Tanya Khovanova, Recursive Sequences
|
|
FORMULA
|
a(n)=first entry of v[n], where v[n]=Mv[n-1], M is the 2 X 2 matrix [[0, -1], [1, 4]], and v[0] is the column vector [0,1]. G.f.=-x/(1-4x+x^2). a(n)=4a(n-1)-a(n-2); a(0)=0, a(1)=-1.
|
|
MAPLE
|
a[0]:=0: a[1]:=-1: for n from 2 to 27 do a[n]:=4*a[n-1]-a[n-2] od: seq(a[n], n=0..27);
|
|
MATHEMATICA
|
M = {{0, -1}, {1, 4}} v[1] = {0, 1} v[n_] := v[n] = M.v[n - 1] a = Table[Abs[v[n][[1]]], {n, 1, 50}]
|
|
CROSSREFS
|
Cf. A001076, A001353.
Adjacent sequences: A106704 A106705 A106706 this_sequence A106708 A106709 A106710
Sequence in context: A077824 A010905 A001353 this_sequence A125905 A026030 A047038
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 30 2005
|
|
EXTENSIONS
|
Edited by njas, Apr 30 2006
|
|
|
Search completed in 0.002 seconds
|
