%I #12 Jun 13 2015 00:52:45
%S 1,-2,6,-15,38,-95,237,-590,1468,-3651,9079,-22575,56131,-139563,
%T 347004,-862774,2145156,-5333599,13261165,-32971820,81979285,
%U -203828691,506788203,-1260049698,3132916721,-7789507968,19367394583,-48154000782
%N G.f.: 1/p(x) where p(x)=x^5 + 2x^4 - 2x^3 - x^2 + 2x - 1.
%C a(n)/a(n-1) tends to the approximation to Feigenbaum's constant mentioned in A103546. = 2.48634376497....;.
%H Weisstein, Eric W. <a href="http://mathworld.wolfram.com/FeigenbaumConstant.html">Feigenbaum Constant</a>. Equation (11).
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (-2,2,1,-2,1).
%F p(x)=x^5 + 2x^4 - 2x^3 - x^2 + 2x - 1; a(n)=coefficient_expansion(1/(x^5*p(1/x))).
%t f[x_] = x^5 + 2x^4 - 2x^3 - x^2 + 2x - 1;
%t g[x] = ExpandAll[x^5*f[1/x]]'
%t a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
%Y Cf. A103546.
%K sign,easy
%O 0,2
%A _Roger L. Bagula_ and _Gary W. Adamson_, Dec 18 2008
%E Edited by _N. J. A. Sloane_, Dec 19 2008
|