%I M4692 N2003 #51 Mar 24 2022 08:05:04
%S 1,-10,30,-20,-10,-12,-20,-40,-90,-220,-572,-1560,-4420,-12920,-38760,
%T -118864,-371450,-1179900,-3801900,-12406200,-40940460,-136468200,
%U -459029400,-1556708400,-5318753700,-18296512728,-63334082520
%N Expansion of (1-4*x)^(5/2).
%D A. Fletcher, J. C. P. Miller, L. Rosenhead and L. J. Comrie, An Index of Mathematical Tables. Vols. 1 and 2, 2nd ed., Blackwell, Oxford and Addison-Wesley, Reading, MA, 1962, Vol. 1, p. 55.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%D T. N. Thiele, Interpolationsrechnung. Teubner, Leipzig, 1909, p. 164.
%H G. C. Greubel, <a href="/A002422/b002422.txt">Table of n, a(n) for n = 0..1000</a> (terms 0..100 from Vincenzo Librandi)
%H N. J. A. Sloane, <a href="/A000984/a000984.pdf">Notes on A984 and A2420-A2424</a>
%F a(n+3) = -2 * A007272(n).
%F a(n) = Sum_{m=0..n} binomial(n, m) * K_m(6), where K_m(x) = K_m(n, 2, x) is a Krawtchouk polynomial. - Alexander Barg (abarg(AT)research.bell-labs.com).
%F a(n) ~ -15/8*Pi^(-1/2)*n^(-7/2)*2^(2*n)*{1 + 35/8*n^-1 + ...}. - Joe Keane (jgk(AT)jgk.org), Nov 22 2001
%F a(n) = -(15/8)*4^n*Gamma(n-5/2)/(sqrt(Pi)*Gamma(1+n)). - _Peter Luschny_, Dec 14 2015
%F a(n) = (-4)^n*binomial(5/2, n). - _Peter Luschny_, Oct 22 2018
%F D-finite with recurrence: n*a(n) +2*(-2*n+7)*a(n-1)=0. - _R. J. Mathar_, Jan 16 2020
%F From _Amiram Eldar_, Mar 24 2022: (Start)
%F Sum_{n>=0} 1/a(n) = 32/45 - 14*Pi/(3^5*sqrt(3)).
%F Sum_{n>=0} (-1)^n/a(n) = 2144/1875 - 28*log(phi)/(5^4*sqrt(5)), where phi is the golden ratio (A001622). (End)
%p A002422 := n -> -(15/8)*4^n*GAMMA(n-5/2)/(sqrt(Pi)*GAMMA(1+n)):
%p seq(A002422(n), n=0..26); # _Peter Luschny_, Dec 14 2015
%t CoefficientList[Series[(1-4x)^{5/2},{x,0,30}],x] (* _Vincenzo Librandi_, Jun 11 2012 *)
%o (PARI) vector(30, n, n--; (-4)^n*binomial(5/2, n)) \\ _G. C. Greubel_, Jul 03 2019
%o (Magma) R<x>:=PowerSeriesRing(Rationals(), 30); Coefficients(R!( (1-4*x)^(5/2) )); // _G. C. Greubel_, Jul 03 2019
%o (Sage) [(-4)^n*binomial(5/2, n) for n in (0..30)] # _G. C. Greubel_, Jul 03 2019
%Y Cf. A007054, A004001, A002420, A002421, A002423, A002424, A007272, A001622.
%K sign
%O 0,2
%A _N. J. A. Sloane_