OFFSET
0,2
LINKS
Winston de Greef, Table of n, a(n) for n = 0..2034
FORMULA
a(n) = Sum_{k=0..n} (-1)^(n-k) * binomial(2*k,k) * binomial(n+4*k-1,n-k).
n*a(n) = -( (2*n-4)*a(n-1) + (11*n-14)*a(n-2) + 20*(n-3)*a(n-3) + 15*(n-4)*a(n-4) + 6*(n-5)*a(n-5) + (n-6)*a(n-6) ) for n > 5.
a(0) = 1; a(n) = (2/n) * Sum_{k=0..n-1} (-1)^(n-1-k) * (n+k) * binomial(n+3-k,4) * a(k).
a(n) = (-1)^(n+1)*Pochhammer(n,4)*hypergeom([3/2, 1-n, 1+n/4, (5+n)/4, (6+n)/4, (7+n)/4], [6/5, 7/5, 8/5, 9/5, 2], 2^10/5^5)/12 for n > 0. - Stefano Spezia, Jul 11 2024
MATHEMATICA
a[n_]:=(-1)^(n+1)Pochhammer[n, 4]HypergeometricPFQ[{3/2, 1-n, 1+n/4, (5+n)/4, (6+n)/4, (7+n)/4}, {6/5, 7/5, 8/5, 9/5, 2}, 2^10/5^5]/12; Join[{1}, Array[a, 28]] (* Stefano Spezia, Jul 11 2024 *)
PROG
(PARI) my(N=30, x='x+O('x^N)); Vec(1/sqrt(1-4*x/(1+x)^5))
(PARI) a(n) = sum(k=0, n, (-1)^(n-k) * binomial(2*k, k) * binomial(n+4*k-1, n-k)) \\ Winston de Greef, Mar 24 2023
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Mar 24 2023
STATUS
approved