OFFSET
0,2
COMMENTS
LINKS
Muniru A Asiru, Table of n, a(n) for n = 0..900
FORMULA
a(n) = Sum_{j=0..n} C(2*n-j-1, n-j)*( C(2*n+1, 2*j) - 2*n*C(n-1, j-1) ).
MATHEMATICA
a[n_]:= Sum[Binomial[2*n-j-1, n-j]*(Binomial[2*n+1, 2*j] - 2*n*Binomial[n-1, j-1]), {j, 0, n}]; Array[a, 20, 0] (* Stefano Spezia, Nov 21 2018 *)
PROG
(PARI) {a(n)=sum(j=0, n, binomial(2*n-j-1, n-j)*(binomial(2*n+1, 2*j)-2*n*binomial(n-1, j-1)))}
(GAP) List([0..20], n->Sum([0..n], j->Binomial(2*n-j-1, n-j)*(Binomial(2*n+1, 2*j)-2*n*Binomial(n-1, j-1)))); # Muniru A Asiru, Nov 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jun 17 2005
STATUS
approved