OFFSET
1,2
LINKS
P. Steinbach, Golden fields: a case for the heptagon, Math. Mag. 70 (1997), no. 1, 22-31.
Index entries for linear recurrences with constant coefficients, signature (2,3,-7,2).
MATHEMATICA
Rest[CoefficientList[Series[x (-1+5x-6x^2+x^3)/((2x-1)(x^3-3x^2+1)), {x, 0, 40}], x]] (* or *) LinearRecurrence[{2, 3, -7, 2}, {1, -3, 3, -11}, 40] (* Harvey P. Dale, Apr 28 2015 *)
PROG
(PARI) Vec(x*(-1+5*x-6*x^2+x^3)/((2*x-1)*(x^3-3*x^2+1))+O(x^99)) \\ Charles R Greathouse IV, Sep 27 2012
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Gary W. Adamson and Roger L. Bagula, Oct 17 2006
STATUS
approved