OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..757
FORMULA
a(n) = (-1)^n * Sum_{k=0..n} (-3)^k * binomial(n,k) * binomial(3*n+k+1,n) / (3*n+k+1).
a(n) = (1/n) * Sum_{k=0..n-1} 2^(n-k) * binomial(n,k) * binomial(4*n-k,n-1-k) for n > 0.
a(n) = (1/n) * Sum_{k=1..n} 2^k * 3^(n-k) * binomial(n,k) * binomial(3*n,k-1) for n > 0.
D-finite with recurrence +2079*n*(3*n-1)*(3*n+1)*a(n) +(-347173*n^3 +395007*n^2 -41030*n -43092)*a(n-1) +18*(-59207*n^3 +325826*n^2 -590255*n +352406)*a(n-2) +3*(-3299*n^3 +35998*n^2 -125399*n +141144)*a(n-3) +9*(3*n-10)*(3*n-11) *(n-4)*a(n-4)=0. - R. J. Mathar, Aug 10 2023
MAPLE
A364825 := proc(n)
(-1)^n*add( (-3)^k*binomial(n, k) * binomial(3*n+k+1, n)/(3*n+k+1), k=0..n) ;
end proc:
seq(A364825(n), n=0..80); # R. J. Mathar, Aug 10 2023
PROG
(PARI) a(n) = (-1)^n*sum(k=0, n, (-3)^k*binomial(n, k)*binomial(3*n+k+1, n)/(3*n+k+1));
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Aug 09 2023
STATUS
approved