login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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]]) >;
[A330801(n): n in [0..40]]; // G. C. Greubel, May 03 2023
(SageMath)
def A330801(n) -> int:
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)
print([A330801(n) for n in range(41)]) # G. C. Greubel, May 03 2023
CROSSREFS
Row sums of A330798.
Cf. A080247.
Sequence in context: A209441 A371486 A352863 * A052658 A340895 A220442
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 02 2020
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 23 23:26 EDT 2024. Contains 371917 sequences. (Running on oeis4.)