OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..1670
FORMULA
MATHEMATICA
CoefficientList[Series[(1-8*x+20*x^2-16*x^3+2*x^4 +(1-6*x+10*x^2-4*x^3) *Sqrt[1-4*x])/2, {x, 0, 30}], x] (* G. C. Greubel, Feb 12 2019 *)
PROG
(PARI) my(x='x+O('x^30)); Vec((1-8*x+20*x^2-16*x^3+2*x^4 +(1-6*x+10*x^2 -4*x^3)*sqrt(1-4*x))/2) \\ G. C. Greubel, Feb 12 2019
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); Coefficients(R!( (1-8*x+20*x^2-16*x^3+2*x^4 +(1-6*x+10*x^2-4*x^3)*Sqrt(1-4*x))/2 )); // G. C. Greubel, Feb 12 2019
(Sage) ((1-8*x+20*x^2-16*x^3+2*x^4 +(1-6*x+10*x^2-4*x^3)*sqrt(1-4*x))/2 ).series(x, 30).coefficients(x, sparse=False) # G. C. Greubel, Feb 12 2019
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Wolfdieter Lang, Jan 13 2006
STATUS
approved