OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Peter Borwein and Kevin G. Hare, Some computations on Pisot and Salem numbers, 2000, table 1, p. 7.
Index entries for linear recurrences with constant coefficients, signature (0,1,1,1,1,1,1).
FORMULA
Lim_{n->infinity} a(n)/a(n-1) = 1.5900053739...
G.f.: x*(1 + x)*(1 - x + x^2)*(1 + x + x^2)/(1 - x^2 - x^3 - x^4 - x^5 - x^6 - x^7).
MATHEMATICA
LinearRecurrence[{0, 1, 1, 1, 1, 1, 1}, {0, 1, 1, 2, 3, 5, 8}, 40] (* Harvey P. Dale, Sep 26 2012 *)
CoefficientList[Series[x (1 + x) (1 + x + x^2) (x^2 - x + 1)/(1 - x^2 - x^3 - x^4 - x^5 - x^6 - x^7), {x, 0, 40}], x] (* Vincenzo Librandi, Oct 16 2014 *)
PROG
(PARI) concat(0, Vec(x*(1+x)*(1+x+x^2)*(x^2-x+1)/(1-x^2-x^3-x^4-x^5-x^6-x^7) + O(x^60))) \\ Michel Marcus, Oct 16 2014
(Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); [0] cat Coefficients(R!(x*(1+x)*(1+x+x^2)*(x^2-x+1)/(1-x^2-x^3-x^4-x^5-x^6-x^7) )); // G. C. Greubel, Nov 03 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, May 27 2005
EXTENSIONS
Definition replaced by recurrence - The Associate Editors of the OEIS, Oct 02 2009
Spelling and formatting corrected, index link added - Charles R Greathouse IV, Jan 26 2011
STATUS
approved