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