(MAGMAMagma) [Round(Factorial(n)*(&+[(-1)^k*2^(n-k)*Gamma(n+3/2)/(Gamma(k+1) *Gamma(n -k+1)*Gamma(k+3/2)): k in [0..n]])): n in [0..20]]; // G. C. Greubel, May 14 2018
(MAGMAMagma) [Round(Factorial(n)*(&+[(-1)^k*2^(n-k)*Gamma(n+3/2)/(Gamma(k+1) *Gamma(n -k+1)*Gamma(k+3/2)): k in [0..n]])): n in [0..20]]; // G. C. Greubel, May 14 2018
editing
approved
Cf. A130757.
approved
editing
proposed
approved
editing
proposed
Wolfdieter Lang , Aug 07 2007
proposed
editing
editing
proposed
G. C. Greubel, <a href="/A131441/b131441.txt">Table of n, a(n) for n = 0..400</a>
T[n_, k_]:= (-1)^k*n!*2^(n-k)*Binomial[n +1/2, n-k]/k!; Table[Sum[T[n, k], {k, 0, n}], {n, 0, 40}] (* G. C. Greubel, May 14 2018 *)
(PARI) for(n=0, 30, print1(sum(k=0, n, (-1)^k*n!*2^(n-k)*binomial(n+1/2, n-k)/k!), ", ")) \\ G. C. Greubel, May 14 2018
(MAGMA) [Round(Factorial(n)*(&+[(-1)^k*2^(n-k)*Gamma(n+3/2)/(Gamma(k+1) *Gamma(n -k+1)*Gamma(k+3/2)): k in [0..n]])): n in [0..20]]; // G. C. Greubel, May 14 2018
approved
editing
proposed
approved
editing
proposed