|
|
A330801
|
|
a(n) = A080247(2*n, n), the central values of the Big-Schröder triangle.
|
|
3
|
|
|
1, 4, 30, 264, 2490, 24396, 244790, 2496528, 25763058, 268243860, 2812481870, 29653804824, 314097641130, 3339741725404, 35626286189670, 381098437754912, 4086504567333858, 43912100376527652, 472743964145437310, 5097853987059017000, 55054474579787825562
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = ((n+1)/(2*n+1))*Sum_{j=0..n} binomial(2*n+1, n+j+1) * binomial(2*n+j, j).
a(n) = ((n+1)/(2*n+1))*binomial(2*n+1, n+1)*hypergeom([-n, 2*n + 1], [n + 2], -1).
D-finite with recurrence 2*n*(2*n+1)*(7*n-13)*a(n) - (382*n^3 -983*n^2 +533*n -40)*a(n-1) + (n-2)*(786*n^2 -3290*n +3315)*a(n-2) + (2*n-5)*(37*n-39)*(n-3)*a(n-3) = 0. - R. J. Mathar, Jul 27 2022
a(n) ~ phi^(5*n + 1) / (2 * 5^(1/4) * sqrt(Pi*n)), where phi = A001622 is the golden ratio. - Vaclav Kotesovec, May 03 2023
|
|
MAPLE
|
a := n -> ((n+1)/(2*n+1))*binomial(2*n+1, n+1)*hypergeom([-n, 2*n+1], [n+2], -1):
seq(simplify(a(n)), n=0..20);
# Alternative:
alias(C = binomial):
a := n -> ((n+1)/(2*n+1))*add(C(2*n+1, n+j+1)*C(2*n+j, j), j=0..n):
seq(a(n), n=0..20);
|
|
MATHEMATICA
|
a[n_]:= (1/Sqrt[Pi]) 4^n (1 + n) Gamma[1/2 + n] Hypergeometric2F1Regularized[-n, 1 + 2 n, 2 + n, -1]; Table[a[n], {n, 0, 20}]
|
|
PROG
|
(Magma)
A330801:= func< n | ((n+1)/(2*n+1))*(&+[Binomial(2*n+1, n+j+1)*Binomial(2*n+j, j): j in [0..n]]) >;
(SageMath)
s = sum( binomial(2 * n + 1, n + j + 1) * binomial(2 * n + j, j)
for j in range(n + 1) )
return (s * (n + 1)) // (2 * n + 1)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|