%I #22 Sep 19 2017 04:29:03
%S 1,-3,3,-11,10,-40,33,-146,107,-535,339,-1968,1040,-7267,3040,-26937,
%T 8195,-100235,18754,-374436,25425,-1404206,-73577,-5286619,-913677,
%U -19980584,-5843020,-75805291,-31102908,-288681717,-151721161,-1103377699,-703352678,-4232153760,-3154163983
%N Expansion of x*(-1+5*x-6*x^2+x^3) / ( (2*x-1)*(x^3-3*x^2+1) )
%H P. Steinbach, <a href="http://www.jstor.org/stable/2691048">Golden fields: a case for the heptagon</a>, Math. Mag. 70 (1997), no. 1, 22-31.
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (2,3,-7,2).
%t 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 *)
%o (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
%K sign,easy
%O 1,2
%A _Gary W. Adamson_ and _Roger L. Bagula_, Oct 17 2006
|