%I #30 Apr 11 2023 11:57:47
%S 1,6,21,56,126,252,463,804,1365,2366,4368,8736,18565,40410,87381,
%T 184604,379050,758100,1486675,2884776,5592405,10919090,21572460,
%U 43144920,87087001,176565486,357913941,723002336,1453179126,2906358252
%N Expansion of 1/((1-x)^6 - x^6).
%H Vincenzo Librandi, <a href="/A192080/b192080.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (6,-15,20,-15,6).
%F a(n) = abs(A006090(n)) = (-1)^n * A006090(n).
%F G.f.: 1/((1-2*x)*(1-x+x^2)*(1-3*x+3*x^2)).
%F From _G. C. Greubel_, Apr 11 2023: (Start)
%F a(n) = (2^(n+5) + A010892(n) - 2*A010892(n-1) - 27*(A057083(n) - 2*A057083(n-1)))/6.
%F a(n) = (2^(n+5) + A057079(n+2) - 27*A057681(n+1))/6. (End)
%t CoefficientList[Series[1/((1-2*x)*(1-x+x^2)*(1-3*x+3*x^2)), {x,0,50}], x] (* _Vincenzo Librandi_, Oct 15 2012 *)
%t LinearRecurrence[{6,-15,20,-15,6},{1,6,21,56,126},30] (* _Harvey P. Dale_, Feb 22 2017 *)
%o (Magma) m:=30; R<x>:=PowerSeriesRing(Integers(),m); Coefficients(R!(1/((1-2*x)*(1-x+x^2)*(1-3*x+3*x^2))));
%o (Maxima) makelist(coeff(taylor(1/((1-2*x)*(1-x+x^2)*(1-3*x+3*x^2)), x, 0, n), x, n), n, 0, 29);
%o (PARI) Vec(1/((1-2*x)*(1-x+x^2)*(1-3*x+3*x^2))+O(x^99)) \\ _Charles R Greathouse IV_, Jun 23 2011
%o (SageMath)
%o def A192080_list(prec):
%o P.<x> = PowerSeriesRing(ZZ, prec)
%o return P( 1/((1-x)^6-x^6) ).list()
%o A192080_list(51) # _G. C. Greubel_, Apr 11 2023
%Y Cf. A006090, A049016, A049017, A057079, A057083, A057681.
%Y Sequences of the form 1/((1-x)^m - x^m): A000079 (m=1,2), A024495 (m=3), A000749 (m=4), A049016 (m=5), this sequence (m=6), A049017 (m=7), A290995 (m=8), A306939 (m=9).
%K nonn,easy
%O 0,2
%A _Bruno Berselli_, Jun 23 2011