The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A051111 Expansion of x/(x^4-3*x^3+4*x^2-2*x+1). 0
 0, 1, 2, 0, -5, -5, 8, 21, 0, -55, -55, 89, 233, 0, -610, -610, 987, 2584, 0, -6765, -6765, 10946, 28657, 0, -75025, -75025, 121393, 317811, 0, -832040, -832040, 1346269, 3524578, 0, -9227465, -9227465, 14930352, 39088169, 0, -102334155, -102334155 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS Index entries for linear recurrences with constant coefficients, signature (2, -4, 3, -1). FORMULA a(5*n + 1) = F(5*n + 1), a(5*n + 2) = F(5*n + 3), a(5*n + 3) = 0, a(5*n - 1) = a(5*n) = -F(5*n), where F = A000045 the Fibonacci sequence. G.f.: x / (x^4 - 3*x^3 + 4*x^2 - 2*x + 1). - Michael Somos, Apr 25 2003 EXAMPLE x + 2*x^2 - 5*x^4 - 5*x^5 + 8*x^6 + 21*x^7 - 55*x^9 - 55*x^10 + 89*x^11 + ... MATHEMATICA CoefficientList[Series[x/(x^4-3x^3+4x^2-2x+1), {x, 0, 40}], x] (* or *) LinearRecurrence[{2, -4, 3, -1}, {0, 1, 2, 0}, 50] (* Harvey P. Dale, Aug 09 2020 *) PROG (PARI) {a(n) = local(x, y); x = fibonacci(n); y = fibonacci(n+1); [ -x, x, y, 0, -y][n%5 + 1]} CROSSREFS Sequence in context: A251420 A137421 A155524 * A068558 A245058 A240657 Adjacent sequences:  A051108 A051109 A051110 * A051112 A051113 A051114 KEYWORD sign AUTHOR Michael Somos, Oct 07 1999 EXTENSIONS Zero prepended by Harvey P. Dale, Aug 09 2020 STATUS approved

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

Last modified August 2 09:22 EDT 2021. Contains 346422 sequences. (Running on oeis4.)