This site is supported by donations to The OEIS Foundation.

 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.

Last modified June 18 15:13 EDT 2019. Contains 324213 sequences. (Running on oeis4.)