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!)
A245391 a(n) = 2^n*binomial(2*(n+1), n). 1
1, 8, 60, 448, 3360, 25344, 192192, 1464320, 11202048, 85995520, 662165504, 5112102912, 39557939200, 306726174720, 2382605107200, 18537602088960, 144438816276480, 1126891074355200, 8802271391907840, 68829791335219200, 538749548542033920, 4220762508660572160 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

The g.f. is the derivative of the REVERT transform of x/(1+2*x)^2. - Thomas Baruchel, Jul 02 2018

LINKS

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

FORMULA

a(n) = 2^(3*n+2)*(n+1/2)!/(sqrt(Pi)*(n+2)*n!).

a(n) = (4*(2*n+1)*(n+1))/(n*(n+2))*a(n-1) for n >= 1.

O.g.f.: 4/(sqrt(1-8*x)*(1+sqrt(1-8*x))^2).

a(n) = A000079(n)*A001791(n+1). - Robert G. Wilson v, Aug 08 2018

MAPLE

a := n -> 2^(3*n+2)*(n+1/2)!/(sqrt(Pi)*(n+2)*n!):

seq(a(n), n = 0..21);

MATHEMATICA

CoefficientList[Series[4/(Sqrt[1 - 8*x]*(1 + Sqrt[1 - 8*x])^2), {x, 0, 50}], x] (* G. C. Greubel, Apr 06 2017 *)

a[n_] := 2^n*Binomial[2 n + 2, n]; Array[a, 22, 0] (* Robert G. Wilson v, Aug 08 2018 *)

PROG

(Sage)

@CachedFunction

def A245391(n):

    return (4*(2*n+1)*(n+1))/(n*(n+2))*a(n-1) if n > 0 else 1

[A245391(n) for n in range(22)]

(PARI) x='x+O('x^50); Vec(4/(sqrt(1-8*x)*(1+sqrt(1-8*x))^2)) \\ G. C. Greubel, Apr 06 2017

(PARI) x='x+O('x^33); Vec(deriv(serreverse(x/(1+2*x)^2))) \\ Thomas Baruchel, Jul 02 2018

CROSSREFS

Cf. A000079, A001791.

Sequence in context: A285391 A001267 A099156 * A254658 A228514 A233666

Adjacent sequences:  A245388 A245389 A245390 * A245392 A245393 A245394

KEYWORD

nonn

AUTHOR

Peter Luschny, Nov 30 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 July 8 05:33 EDT 2020. Contains 335513 sequences. (Running on oeis4.)