|
%I #21 Oct 06 2023 12:07:06
%S 1,-1,-44,-24,1341,1755,-21538,-89654,215873,1978283,4362946,
%T -41493994,-146595004,199773652,4332900506,399542726,-31367063828,
%U -291436749508,599072094382,2087538126074,21203843886148,-108990928314404
%N Expansion of 1/q(x) where q(x) = x^16*p(1/x) and p(x) = -332914995*x - 121099959*x^2 - 54262863*x^3 - 37433763*x^4 - 1488468*x^5 - 4442464*x^6 + 462362*x^7 - 241686*x^8 + 63542*x^9 + 26*x^10 + 3732*x^11 + 776*x^12 + 113*x^13 + 45*x^14 + x^15 + x^16.
%H <a href="/index/Rec#order_15">Index entries for linear recurrences with constant coefficients</a>, signature (-1, -45, -113, -776, -3732, -26, -63542, 241686, -462362, 4442464, 1488468, 37433763, 54262863, 121099959, 332914995).
%t f[x_] := -332914995 x - 121099959 x^2 - 54262863 x^3 - 37433763 x^4 - 1488468 x^5 - 4442464 x^6 + 462362 x^7 - 241686 x^8 + 63542 x^9 + 26 x^10 + 3732 x^11 + 776 x^12 + 113 x^13 + 45 x^14 + x^15 + x^16;
%t g[x] = ExpandAll[x^16*f[1/x]];
%t a = Table[SeriesCoefficient[ Series[1/g[x], {x, 0, n}], n], {n, 0, 25}]
%K sign,easy,less
%O 0,3
%A _Roger L. Bagula_, Mar 17 2009
|
