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!)
A239425 Expansion of -16/(sqrt(12*x+2*sqrt(1-4*x)+2)-sqrt(1-4*x)-1)^2+1/x^2-1. 1
1, 2, 7, 16, 53, 156, 522, 1702, 5833, 19990, 70079, 247160, 882587, 3172196, 11492847, 41874864, 153452521, 564975570, 2089346157, 7756501690, 28898156364, 108010059036, 404890987653, 1521877280868, 5734545323859, 21657665796526 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..1000

FORMULA

a(n) = Sum_{j=0..(n+2)} C(n+2*j-1,j)*(-1)^(j+n)*C(2*n+2,j+n))/(n+1) -delta(n,0).

a(n) ~ (5+3*sqrt(5)) * 2^(2*n+1) / (5*sqrt(Pi)*n^(3/2)). - Vaclav Kotesovec, Mar 18 2014

Conjecture: 2*(2*n+1)*(n+2)*(n+1)*a(n) +(n+1)*(n^2-27*n+2)*a(n-1) +2*(-73*n^3+204*n^2-167*n+6)*a(n-2) +12*(n-3)*(2*n-3)*(4*n-7)*a(n-3) +216*(2*n-5)*(n-3)*(2*n-3)*a(n-4)=0. - R. J. Mathar, Apr 02 2014

MATHEMATICA

CoefficientList[Series[-16/(Sqrt[12*x+2*Sqrt[1-4*x]+2]-Sqrt[1-4*x] -1)^2+1/x^2-1, {x, 0, 20}], x] (* Vaclav Kotesovec, Mar 18 2014 *)

Flatten[{1, Table[Sum[Binomial[n+2*j-1, j+n-1]*(-1)^(j+n)*Binomial[2*n+2, j+n], {j, 0, n+2}]/(n+1), {n, 1, 20}]}] (* Vaclav Kotesovec, Mar 18 2014 *)

PROG

(Maxima)

a(n):=(sum(binomial(n+2*j-1, j)*(-1)^(j+n)*binomial(2*n+2, j+n), j, 0, n+2))/(n+1)-kron_delta(n, 0);

(PARI) x='x+O('x^50); Vec(-16/(sqrt(12*x+2*sqrt(1-4*x)+2)-sqrt(1-4*x) -1)^2 + 1/x^2 -1) \\ G. C. Greubel, Jun 01 2017

CROSSREFS

Cf. A097609, A055113.

Sequence in context: A000512 A084079 A286848 * A042689 A073998 A129444

Adjacent sequences:  A239422 A239423 A239424 * A239426 A239427 A239428

KEYWORD

nonn

AUTHOR

Vladimir Kruchinin, Mar 17 2014

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 February 17 12:32 EST 2020. Contains 331996 sequences. (Running on oeis4.)