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!)
A051711 a(0) = 1; for n > 0, a(n) = n!*4^n/2. 4
1, 2, 16, 192, 3072, 61440, 1474560, 41287680, 1321205760, 47563407360, 1902536294400, 83711596953600, 4018156653772800, 208944145996185600, 11700872175786393600, 702052330547183616000, 44931349155019751424000 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

For n <= 16, denominators in expansion of W(exp(x)) about x=1, where W is the Lambert function.

LINKS

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

J. M. Borwein and R. M. Corless, Emerging tools for experimental mathematics.

J. M. Borwein and R. M. Corless, Emerging tools for experimental mathematics, Amer. Math. Monthly, 106 (No. 10, 1999), 889-909.

INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 647

FORMULA

E.g.f.: (1-2*x)/(1-4*x).

a(n) = 4*n * a(n-1), n > 0.

EXAMPLE

W(exp(x)) = 1 + (x-1)/2 + (x-1)^2/16 - (x-1)^3/192 - ... .

MATHEMATICA

Join[{1}, Table[(n! 4^n)/2, {n, 20}]] (* Harvey P. Dale, Oct 05 2012 *)

PROG

(PARI) a(n)=if(n<1, !n, 4^n/2*n!)

(Magma) [1] cat [2^(2*n-1)*Factorial(n): n in [1..30]]; // G. C. Greubel, Mar 06 2018

CROSSREFS

Cf. A001662.

Sequence in context: A006335 A273591 A292347 * A274448 A209586 A334237

Adjacent sequences:  A051708 A051709 A051710 * A051712 A051713 A051714

KEYWORD

nonn,easy,nice,frac

AUTHOR

N. J. A. Sloane

EXTENSIONS

More terms from James A. Sellers, Dec 07 1999

Edited by Michael Somos, Aug 21 2002

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 May 22 04:38 EDT 2022. Contains 353933 sequences. (Running on oeis4.)