OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
a := n -> (n/2)*add(binomial(n + k, n)*binomial(k, n - k)/k, k=1..n):
seq(a(n), n=1..24);
# Alternatively:
a := n -> `if`(n mod 2=0, 1, n/2)*binomial(2*n - floor(n/2), ceil(n/2))*hypergeom(
[-floor(n/2), ceil(n/2), floor(3*(n+1)/2)], [n mod 2+1/2, ceil(n/2)+1], -1/4):
seq(simplify(a(n)), n=1..24);
MATHEMATICA
Table[n/2 Sum[Binomial[n+k, n] Binomial[k, n-k]/k, {k, n}], {n, 30}] (* Harvey P. Dale, Dec 29 2021 *)
PROG
(PARI) a(n) = (n/2)*sum(k=1, n, binomial(n+k, n)*binomial(k, n-k)/k); \\ Michel Marcus, Jan 27 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 26 2018
STATUS
approved