|
%I #10 Oct 25 2016 03:09:30
%S 1,40,1382,47052,1599931,54398036,1849534086,62884161136,
%T 2138061495013,72694091262236,2471599117332784,84034370478932992,
%U 2857168612929602684,97143733405564093636,3302886955031732949874,112298157125325742290668
%N Expansion of reciprocal polynomial of (-1-x^5+x^6)^4 * (-1-2*x^5+x^6)*(-9-34*x^5+x^6).
%H G. C. Greubel, <a href="/A135644/b135644.txt">Table of n, a(n) for n = 1..650</a>
%t f[x_] = (-1 - x^5 + x^6)^4*(-1 - 2*x^5 + x^6)*(-9 - 34x^5 + x^6); g[x_] = Expand[x^36*f[1/x]]; a = Table[ SeriesCoefficient[Series[1/g[x], {x, 0, 30}], n], {n, 0, 30}]
%o (PARI) f(x)=((-1-x^5+x^6)^4*(-1-2*x^5+x^6)*(-9-34*x^5+x^6));
%o v=Vec(1/polrecip(f(x))+O(x^66))
%K nonn,less
%O 1,2
%A _Roger L. Bagula_, Jan 31 2008
%E Edited by _Michel Marcus_, Apr 02 2013
|
