OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = Sum_{k=1..(n+1)} (Sum_{j=k..(n+1)} binomial(-k+2*j-1,j-1)*(-1)^(n+1-j)*binomial(n+1,j)))*(1-(-1)^k)/2*(-1)^((k-1)/2)).
D-finite with recurrence: 6*n*a(n) +2*(-2*n+1)*a(n-1) +(-29*n+30)*a(n-2) +(-33*n+47)*a(n-3) +(-17*n+32)*a(n-4) +3*(-n+3)*a(n-5)=0. - R. J. Mathar, Jan 25 2020
MATHEMATICA
CoefficientList[Series[2/((x+3)Sqrt[-3 x^2-2x+1]+3x^2+2x-1), {x, 0, 40}], x] (* Harvey P. Dale, Aug 10 2013 *)
PROG
(Maxima) a(n):=sum((sum(binomial(-k+2*j-1, j-1)*(-1)^(n+1-j)* binomial(n+1, j), j, k, n+1))*(1-(-1)^k)/2*(-1)^((k-1)/2), k, 1, n+1);
(PARI) x='x+O('x^30); Vec(2/((x+3)*sqrt(-3*x^2-2*x+1)+3*x^2+2*x-1)) \\ G. C. Greubel, Jan 14 2018
(Magma) /* Expansion */ Q:=Rationals(); R<x>:=PowerSeriesRing(Q, 30); R!(2/((x+3)*Sqrt(-3*x^2-2*x+1)+3*x^2+2*x-1)); // G. C. Greubel, Jan 14 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Kruchinin, May 03 2011
EXTENSIONS
More terms from Harvey P. Dale, Aug 10 2013
STATUS
approved