|
%I #16 Oct 02 2023 14:33:49
%S 1,1,1,1,2,3,4,5,7,10,13,17,23,33,46,62,83,114,158,217,296,405,557,
%T 764,1044,1427,1957,2686,3680,5035,6893,9446,12944,17728,24278,33259,
%U 45567,62417,85486,117094,160411,219748,301005,412299,564771,773650,1059760
%N Expansion of g.f.: -1/(-1 + x + x^4 - x^10 + x^13 + x^14).
%C Limiting ratio is: 1.3698098178136... .
%C The polynomial was developed from x^4-x^3-1.
%D McKean and Moll, Elliptic Curves, Function Theory,Geometry, Arithmetic, Cambridge University Press, New York, 199, page 173
%H <a href="/index/Rec#order_14">Index entries for linear recurrences with constant coefficients</a>, signature (1, 0, 0, 1, 0, 0, 0, 0, 0, -1, 0, 0, 1, 1).
%t f[x_] = x^4 - x^3 - 1;
%t p[x_] = ExpandAll[x^4*f[-1/x] - x^(4 + 6)*f[x]];
%t f[x_] = ExpandAll[x^14*p[1/x]]
%t a = Table[SeriesCoefficient[
%t Series[-1/f[x], {x, 0, 100}], n], {n, 0, 100}]
%Y Cf. A174577.
%K nonn,easy
%O 0,5
%A _Roger L. Bagula_, Nov 29 2010
|
