This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A121955 Expansion of x^2*(9 + 8*x - 8*x^2)/((1+x-x^2)*(1-2*x-4*x^2)). 1
 0, 9, 17, 72, 209, 711, 2250, 7357, 23693, 76848, 248413, 804307, 2602122, 8421705, 27251521, 88190472, 285386041, 923535567, 2988612714, 9671371877, 31297187845, 101279874144, 327748481957, 1060616489147, 3432226859754 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS G. C. Greubel, Table of n, a(n) for n = 1..1000 Index entries for linear recurrences with constant coefficients, signature (1,7,2,-4). FORMULA a(n) = a(n-1) + 7*a(n-2) + 2*a(n-3) - 4*a(n-4). - R. J. Mathar, Apr 04 2009 a(n) = ((-1)^n*Fibonacci(n+2) + 2^n*(5*Fibonacci(n+1) - 4*Fibonacci(n)))/3. - G. C. Greubel, Oct 07 2019 MAPLE with(combinat); f:=fibonacci; seq(((-1)^n*f(n+2) + 2^n*(5*f(n+1) - 4*f(n)))/3, n=1..30); # G. C. Greubel, Oct 07 2019 MATHEMATICA M = {{0, 1, 1, 1, 0, 1}, {1, 0, 1, 1, 1, 0}, {1, 1, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0}, {1, 0, 1, 0, 0, 0}}; v[1]={0, 1, 1, 2, 3, 5}; v[n_]:= v[n]= M.v[n-1]; Table[Floor[v[n][[1]]], {n, 50}] LinearRecurrence[{1, 7, 2, -4}, {0, 9, 17, 72}, 30] (* Harvey P. Dale, Jul 29 2013 *) With[{F=fibonacci}, Table[((-1)^n*F[n+2] + 2^n*(5*F[n+1]-4*F[n]))/3, {n, 30}]] (* G. C. Greubel, Oct 07 2019 *) PROG (PARI) vector(30, n, f=fibonacci; ((-1)^n*f(n+2) + 2^n*(5*f(n+1) - 4*f(n)))/3) \\ G. C. Greubel, Oct 07 2019 (MAGMA) F:=Fibonacci; [((-1)^n*F(n+2) + 2^n*(5*F(n+1) - 4*F(n)))/3: n in [1..30]]; // G. C. Greubel, Oct 07 2019 (Sage) f=fibonacci; [((-1)^n*f(n+2) + 2^n*(5*f(n+1) - 4*f(n)))/3 for n in (1..30)] # G. C. Greubel, Oct 07 2019 (GAP) F:=Fibonacci;; List([1..30], n-> ((-1)^n*F(n+2) + 2^n*(5*F(n+1) - 4*F(n)))/3); # G. C. Greubel, Oct 07 2019 CROSSREFS Cf. A000045. Sequence in context: A319018 A101304 A146601 * A151793 A118852 A118527 Adjacent sequences:  A121952 A121953 A121954 * A121956 A121957 A121958 KEYWORD nonn,easy,changed AUTHOR Roger L. Bagula, Sep 01 2006 EXTENSIONS New name (g.f. given by Mathar) by Joerg Arndt, Feb 06 2013 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 October 19 22:55 EDT 2019. Contains 328244 sequences. (Running on oeis4.)