OFFSET
0,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
MAPLE
seq(coeff(series((sqrt(1-4*x) +4*x-1)/(2*x*(1-4*x)^6), x, n+1), x, n), n = 0..40); # G. C. Greubel, Jan 13 2020
MATHEMATICA
CoefficientList[Series[(Sqrt[1-4*x] +4*x-1)/(2*x*(1-4*x)^6), {x, 0, 40}], x] (* G. C. Greubel, Jan 13 2020 *)
PROG
(PARI) my(x='x+O('x^40)); Vec( (sqrt(1-4*x) +4*x-1)/(2*x*(1-4*x)^6) ) \\ G. C. Greubel, Jan 13 2020
(Magma) R<x>:=PowerSeriesRing(Rationals(), 40); Coefficients(R!( (Sqrt(1-4*x) +4*x-1)/(2*x*(1-4*x)^6) )); // G. C. Greubel, Jan 13 2020
(Sage)
def A045530_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( (sqrt(1-4*x) +4*x-1)/(2*x*(1-4*x)^6) ).list()
A045530_list(40) # G. C. Greubel, Jan 13 2020
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
STATUS
approved