login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107377 Expansion of x*(1-4*x-3*x^2)/(1-5*x+5*x^3+x^4). 1
0, 1, 1, 2, 5, 19, 84, 393, 1865, 8886, 42381, 202187, 964640, 4602409, 21958729, 104768258, 499864605, 2384926971, 11378834836, 54290082897, 259025915025, 1235850473974, 5896423120549, 28132695944723, 134225201438720 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,4
COMMENTS
Sequence produced by 4 X 4 Markov chain with symmetric quartic characteristic polynomial x^4-5*x^3+5*x+1.
Setting m=3 gives a Fibonacci sequence.
LINKS
FORMULA
Let m=5, M={{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-1, -m, 0, m}}, v[n]=M.v[n-1], then a(n) = v[n][[1]].
a(0)=0, a(1)=1, a(2)=1, a(3)=2, a(n)=5*a(n-1)-5*a(n-3)-a(n-4). - Harvey P. Dale, Dec 24 2015
MATHEMATICA
m = 5 M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-1, -m, 0, m}} Expand[Det[M - x*IdentityMatrix[4]]] NSolve[Det[M - x*IdentityMatrix[4]] == 0, x] v[1] = {0, 1, 1, 2}; v[n_] := v[n] = M.v[n - 1]; digits = 50; a = Table[v[n][[1]], {n, 1, digits}]
CoefficientList[Series[x (1-4x-3x^2)/(1-5x+5x^3+x^4), {x, 0, 30}], x] (* or *) LinearRecurrence[{5, 0, -5, -1}, {0, 1, 1, 2}, 30] (* Harvey P. Dale, Dec 24 2015 *)
PROG
(PARI) Vec(x*(1-4*x-3*x^2)/(1-5*x+5*x^3+x^4)+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012
CROSSREFS
Cf. A107378.
Sequence in context: A262165 A219661 A179566 * A286886 A058132 A286071
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, May 24 2005
EXTENSIONS
Edited by N. J. A. Sloane, Jul 13 2007
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 00:26 EDT 2024. Contains 371264 sequences. (Running on oeis4.)