OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (12,-60,160,-240,192,-64).
FORMULA
a(n) = T(n, 5) = A055587(n+5, 6).
G.f.: x*(1-x)^5/(1-2*x)^6.
MAPLE
seq(coeff(series(x*(1-x)^5/(1-2*x)^6, x, n+1), x, n), n = 0..30); # G. C. Greubel, Jan 16 2020
MATHEMATICA
CoefficientList[Series[x*(1-x)^5/(1-2*x)^6, {x, 0, 30}], x] (* G. C. Greubel, Jan 16 2020 *)
PROG
(PARI) my(x='x+O('x^30)); concat([0], Vec(x*(1-x)^5/(1-2*x)^6)) \\ G. C. Greubel, Jan 16 2020
(Magma) R<x>:=PowerSeriesRing(Integers(), 30); [0] cat Coefficients(R!( x*(1-x)^5/(1-2*x)^6 )); // G. C. Greubel, Jan 16 2020
(Sage)
def A055852_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( x*(1-x)^5/(1-2*x)^6 ).list()
A055852_list(30) # G. C. Greubel, Jan 16 2020
(GAP) a:=[1, 7, 34, 138, 501, 1683];; for n in [7..30] do a[n]:=12*a[n-1] -60*a[n-2] +160*a[n-3] -240*a[n-4] +192*a[n-5] -64*a[n-6]; od; Concatenation([0], a); # G. C. Greubel, Jan 16 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang May 30 2000
STATUS
approved