login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A112019 a(n) = Sum_{k=0..n} binomial(n,k)*binomial(n+k,k)^2. 5
1, 5, 55, 749, 11251, 178835, 2949115, 49906925, 860905315, 15071939255, 266982872905, 4774722189275, 86070844191775, 1561948324845095, 28507384046515555, 522867506128197869, 9631571375362268515, 178094411589895650815, 3304192479145474141741, 61487420580006795749999 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Diagonal of rational function 1/(1 - x - y - z - x*y + x*z + x*y*z). - Gheorghe Coserea, Jul 01 2018

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

C. Elsner, On recurrence formulas for sums involving binomial coefficients, Fib. Q., 43,1 (2005), 31-45.

V. Kotesovec, Asymptotic of generalized Apery sequences with powers of binomial coefficients, Nov 04 2012

FORMULA

a(n) = 3F2( {-n, 1 + n, 1 + n} ; {1, 1} )(-1). - Olivier Gérard, Apr 23 2009

a(n) ~ (1+r)^(4*n+5/2)/r^(3*n+5/2)/(2*Pi*n)*sqrt((1-r)/(3-r)), where r is positive real root of the equation (1-r)*(1+r)^2=r^3, r = 1/6*((44-3*sqrt(177))^(1/3)+(44+3*sqrt(177))^(1/3)-1) = 0.82948354095849... - Vaclav Kotesovec, Nov 04 2012

Recurrence: 2*n^2*(59*n - 83)*a(n) = (2301*n^3 - 5538*n^2 + 3797*n - 800)*a(n-1) + 5*(59*n^3 - 201*n^2 + 213*n - 64)*a(n-2) + (59*n - 24)*(n-2)^2*a(n-3). - Vaclav Kotesovec, Nov 04 2012

G.f. y=A(x) satisfies: 0 = x*(5*x + 8)*(x^3 + 5*x^2 + 39*x - 2)*y'' + (15*x^4 + 82*x^3 + 315*x^2 + 624*x - 16)*y' + (5*x^3 + 21*x^2 + 80)*y. - Gheorghe Coserea, Jul 01 2018

MAPLE

seq(add((multinomial(n+k, n-k, k, k))*binomial(n+k, k), k=0..n), n=0..19); # Zerinvary Lajos, Oct 18 2006

ogf := hypergeom([1/12, 5/12], [1], -1728*(x^3+5*x^2+39*x-2)*x^4 / (x^4+4*x^3+30*x^2-20*x+1)^3 ) / (x^4+4*x^3+30*x^2-20*x+1)^(1/4);

series(ogf, x=0, 30); # Mark van Hoeij, Jan 22 2013

MATHEMATICA

Table[HypergeometricPFQ[{-n, 1 + n, 1 + n}, {1, 1}, -1], {n, 0, 20}] (* Olivier Gérard, Apr 23 2009 *)

Table[Sum[Binomial[n, k]*Binomial[n+k, k]^2, {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Nov 04 2012 *)

PROG

(PARI) a(n) = sum(k=0, n, binomial(n, k)*binomial(n+k, k)^2); \\ Michel Marcus, Mar 09 2016

CROSSREFS

Cf. A218693, A111968, A014178, A014180, A218689, A218692.

Sequence in context: A038261 A246153 A292805 * A131846 A144577 A234508

Adjacent sequences:  A112016 A112017 A112018 * A112020 A112021 A112022

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Nov 28 2005

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 20:01 EDT 2020. Contains 333103 sequences. (Running on oeis4.)