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!)
A347993 a(n) = n! * Sum_{k=1..n} (-1)^(k+1) * n^(n-k) / (n-k)!. 1
1, 2, 15, 136, 1645, 24336, 426979, 8658560, 199234809, 5128019200, 145969492471, 4552809182208, 154404454932325, 5656950010320896, 222655633595044875, 9369696305273798656, 419790650812640438641, 19950175280765680680960, 1002394352017754098219999, 53092232229227200348160000 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..20.

FORMULA

E.g.f.: -LambertW(-x) / (1 - LambertW(-x)^2).

a(n) = n * A133297(n).

MATHEMATICA

Table[n! Sum[(-1)^(k + 1) n^(n - k)/(n - k)!, {k, 1, n}], {n, 1, 20}]

nmax = 20; CoefficientList[Series[-LambertW[-x]/(1 - LambertW[-x]^2), {x, 0, nmax}], x] Range[0, nmax]! // Rest

PROG

(PARI) a(n) = n! * sum(k=1, n, (-1)^(k+1)*n^(n-k)/(n-k)!); \\ Michel Marcus, Sep 23 2021

CROSSREFS

Cf. A000169, A000312, A001865, A063169, A133297, A134095, A277458, A347994.

Sequence in context: A143924 A217483 A214043 * A215922 A285449 A288950

Adjacent sequences:  A347990 A347991 A347992 * A347994 A347995 A347996

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Sep 23 2021

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 January 21 01:45 EST 2022. Contains 350473 sequences. (Running on oeis4.)