login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A238085 Expansion of e.g.f.: -LambertW(-sinh(x)). 5
0, 1, 2, 10, 72, 716, 9088, 140344, 2554240, 53540368, 1270296064, 33653698464, 984753299456, 31542901202112, 1097763264864256, 41247391653500800, 1664188908529156096, 71759140177774010624, 3293251384307726942208, 160272893566770148403712 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

FORMULA

a(n) ~ (exp(-2)+1)^(1/4) * n^(n-1) / ((log(sqrt(1+exp(-2)) + exp(-1)) )^(n-1/2) * exp(n-1/2)).

MAPLE

a:=series( -LambertW(-sinh(x)), x=0, 20): seq(n!*coeff(a, x, n), n=0..19); # Paolo P. Lava, Mar 27 2019

MATHEMATICA

CoefficientList[Series[-LambertW[-Sinh[x]], {x, 0, 20}], x]*Range[0, 20]!

PROG

(PARI) x='x+('x^30); concat([0], Vec(serlaplace(-lambertw(-sinh(x))))) \\ G. C. Greubel, Feb 19 2018

CROSSREFS

Cf. A219503, A214654, A274279, A277463, A277476.

Sequence in context: A204808 A084844 A144011 * A277502 A231039 A224799

Adjacent sequences:  A238082 A238083 A238084 * A238086 A238087 A238088

KEYWORD

nonn

AUTHOR

Vaclav Kotesovec, Feb 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 June 18 15:13 EDT 2019. Contains 324213 sequences. (Running on oeis4.)