OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
G.f.: ( 2*(1+x)/(1-x) + x/(1-4*x)^(1/2) )/(2+x).
a(n) ~ 2^(2*n) / (9*sqrt(Pi*n)). - Vaclav Kotesovec, Mar 26 2016
a(n) = (1/3)*(4 - (-1/2)^n) - Sum_{j=0..n-1} binomial(2*j, j)*(-1/2)^(n-j). - G. C. Greubel, Jan 13 2022
MATHEMATICA
CoefficientList[Series[(2(1+x)/(1-x)+x/(1-4x)^(1/2))/(2+x), {x, 0, 30}], x] (* Harvey P. Dale, May 26 2011 *)
PROG
(PARI) {a(n)=local(x=X+X*O(X^n)); polcoeff((2*(1+x)/(1-x)+x/(1-4*x)^(1/2))/(2+x), n, X)}
(Magma) [(1/3)*(4 - (-1/2)^n) + (n+1)*Catalan(n) - (&+[(j+1)*Catalan(j)*(-1/2)^(n-j): j in [0..n]]): n in [0..30]]; // G. C. Greubel, Jan 13 2022
(Sage) [(1/3)*(4 - (-1/2)^n) - sum( binomial(2*j, j)*(-1/2)^(n-j) for j in (0..n-1)) for n in (0..30)] # G. C. Greubel, Jan 13 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Sep 21 2005
STATUS
approved