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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A102743 Expansion of LambertW(-x)/(x*(x-1)). 1
1, 2, 7, 37, 273, 2661, 32773, 491555, 8715409, 178438681, 4142334501, 107483043735, 3081956918857, 96759352320437, 3300826000845493, 121569984050610331, 4807542796319581089, 203167758634027130289 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

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

FORMULA

a(n) = n!*Sum_{k=1..n+1} k^(k-1)/k!. - Vladeta Jovovic, Oct 17 2007

a(n) ~ exp(2)/(exp(1)-1) * n^(n-1). - Vaclav Kotesovec, Nov 27 2012

E.g.f.: W(0)/(2-2*x) , where W(k) = 1 + 1/( 1 - x*(k+2)^k/( x*(k+2)^k + (k+1)^k/W(k+1) )); (continued fraction). - Sergei N. Gladkovskii, Aug 19 2013

MATHEMATICA

CoefficientList[Series[LambertW[-x]/(x*(x-1)), {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Nov 27 2012 *)

PROG

(PARI) x='x+O('x^50); Vec(serlaplace(lambertw(-x)/(x*(x-1)))) \\ G. C. Greubel, Nov 08 2017

CROSSREFS

Sequence in context: A107877 A001028 A116481 * A195068 A196916 A182331

Adjacent sequences:  A102740 A102741 A102742 * A102744 A102745 A102746

KEYWORD

easy,nonn

AUTHOR

Vladeta Jovovic, Feb 08 2005

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 20 12:27 EDT 2019. Contains 325180 sequences. (Running on oeis4.)