login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A331726 E.g.f.: -LambertW(-x/(1 - x)) / (1 - x). 1
0, 1, 6, 45, 448, 5825, 95796, 1926043, 45944256, 1269187137, 39840825700, 1400286658331, 54462564354672, 2321934762267601, 107664031299459012, 5393893268767761675, 290341440380472614656, 16710435419661861992705, 1024009456958258244673860 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..18.

FORMULA

a(n) = Sum_{k=0..n-1} binomial(n,k)^2 * k! * (n - k)^(n - k - 1).

a(n) ~ (1 + exp(-1))^(n + 3/2) * n^(n-1). - Vaclav Kotesovec, Jan 26 2020

MATHEMATICA

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

Table[Sum[Binomial[n, k]^2 k! (n - k)^(n - k - 1), {k, 0, n - 1}], {n, 0, 18}]

PROG

(PARI) seq(n)={Vec(serlaplace(-lambertw(-x/(1 - x) + O(x*x^n)) / (1 - x)), -(n+1))} \\ Andrew Howroyd, Jan 25 2020

CROSSREFS

Cf. A000169, A052871, A245496, A277505, A331727.

Sequence in context: A097814 A239910 A228194 * A084064 A186925 A294642

Adjacent sequences:  A331723 A331724 A331725 * A331727 A331728 A331729

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Jan 25 2020

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 September 22 14:20 EDT 2020. Contains 337291 sequences. (Running on oeis4.)