OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000 (terms 0..100 from Vincenzo Librandi)
FORMULA
D-finite with recurrence: (n+3)*a(n+3) - (7*n+17)*a(n+2) + 2*(7*n+12)*a(n+1) - 4*(2*n+1)*a(n) = 0.
G.f.: (1-x)/((1-2*x)*sqrt(1-4*x)).
MATHEMATICA
CoefficientList[Series[(1-x)/((1-2x)Sqrt[1-4x]), {x, 0, 30}], x] (* Harvey P. Dale, Oct 25 2016 *)
PROG
(Maxima) a(n):=at(diff((1-x)/((1-2*x)*sqrt(1-4*x)), x, n), x=0)/n!;
makelist(a(n), n, 0, 24);
(PARI) x='x+O('x^30); Vec((1-x)/((1-2*x)*sqrt(1-4*x))) \\ G. C. Greubel, Nov 01 2018
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); Coefficients(R!((1-x)/((1-2*x)*Sqrt(1-4*x)))); // G. C. Greubel, Nov 01 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emanuele Munarini, Apr 06 2011
EXTENSIONS
More terms from Harvey P. Dale, Oct 25 2016
STATUS
approved