%I #23 Jan 30 2020 21:29:17
%S 1,1,2,2,5,2,18,-19,115,-296,1115,-3632,12868,-44803,159577,-570455,
%T 2059182,-7476086,27311129,-100274479,369888135,-1370063926,
%U 5093782015,-19002596870,71109902844,-266855928791,1004045621663,-3786790876945
%N Expansion of -2/(x*sqrt(4*x+1)+x-2).
%H G. C. Greubel, <a href="/A271622/b271622.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = 1 + Sum_{k=1..n-1} (-1)^(n-k-1)*k*binomial(2*n-3*k-1,n-k-1))/(n-k).
%F a(n) ~ (-1)^n * 2^(2*n+2) / (81*sqrt(Pi)*n^(3/2)). - _Vaclav Kotesovec_, Apr 11 2016
%F D-finite with recurrence: (-n+1)*a(n) + 3*(-n+3)*a(n-1) + 2*(2*n-5)*a(n-2) + (n-1)*a(n-3) + 2*(2*n-5)*a(n-4) = 0. - _R. J. Mathar_, Apr 15 2016
%t Table[1 + (Sum[(k (-1)^(n - k - 1) Binomial[2 n - 3 k - 1, n - k - 1])/(n - k), {k, 1, n - 1}]), {n, 0, 27}] (* or *)
%t CoefficientList[Series[-2/(x Sqrt[4 x + 1] + x - 2), {x, 0, 27}], x] (* _Michael De Vlieger_, Apr 15 2016 *)
%o (Maxima)
%o a(n):=1+(sum(((-1)^(n-k-1)*k*binomial(2*n-3*k-1,n-k-1))/(n-k),k,1,n-1));
%o (PARI) x='x+O('x^99); Vec(-2/(x*sqrt(4*x+1)+x-2)) \\ _Altug Alkan_, Apr 15 2016
%Y Cf. A000108.
%K sign,easy
%O 0,3
%A _Vladimir Kruchinin_, Apr 11 2016
|