OFFSET
0,2
FORMULA
a(n) = (1/(n+1)) * Sum_{k=0..n} 3^k * binomial(2*(n+1),k) * binomial(n+1,n-k).
From Peter Bala, Sep 08 2024: (Start)
a(n) = hypergeom([-n, -2*(n+1)], [2], 3).
a(n) = (-2)^n * Jacobi_P(n, 1, n+2, -2)/(n+1).
P-recursive: 2*(11*n-5)*(2*n+3)*(n+1)*a(n) = (649*n^3+354*n^2-109*n-54)*a(n-1) + 16*(n-1)*(2*n-1)*(11*n+6)*a(n-2) with a(0) = 1 and a(1) = 7. (End)
MAPLE
seq(simplify(hypergeom([-n, -2*(n+1)], [2], 3)), n = 0..20); # Peter Bala, Sep 08 2024
PROG
(PARI) my(N=30, x='x+O('x^N)); Vec(serreverse(x/((1+x)*(1+3*x)^2))/x)
(PARI) a(n) = sum(k=0, n, 3^k*binomial(2*(n+1), k)*binomial(n+1, n-k))/(n+1);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Seiichi Manyama, Mar 21 2024
STATUS
approved