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 (18,-144,672,-2016,4032,-5376,4608,-2304,512).
FORMULA
a(n) = T(n, 8) = A055587(n+8, 9).
G.f.: x*(1-x)^8/(1-2*x)^9.
MAPLE
seq(coeff(series(x*(1-x)^8/(1-2*x)^9, x, n+1), x, n), n = 0..30); # G. C. Greubel, Jan 16 2020
MATHEMATICA
CoefficientList[Series[x*(1-x)^8/(1-2*x)^9, {x, 0, 30}], x] (* G. C. Greubel, Jan 16 2020 *)
PROG
(PARI) my(x='x+O('x^30)); concat([0], Vec(x*(1-x)^8/(1-2*x)^9)) \\ G. C. Greubel, Jan 16 2020
(Magma) R<x>:=PowerSeriesRing(Integers(), 30); [0] cat Coefficients(R!( x*(1-x)^8/(1-2*x)^9 )); // G. C. Greubel, Jan 16 2020
(Sage)
def A055855_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( x*(1-x)^8/(1-2*x)^9 ).list()
A055855_list(30) # G. C. Greubel, Jan 16 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang May 30 2000
STATUS
approved