OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..385
Jason Saied, Jeffrey Marshall, Namit Anand, and Eleanor G. Rieffel, General protocols for the efficient distillation of indistinguishable photons, arxiv:2404.14217 [quant-ph], Apr 22 2024. See p. 14.
FORMULA
a(n) ~ n^(n-1) / 4.
a(n) = n!*Sum_{k = 1..n} (-1)^(k+1)*k*n^(n-k-1)/(n-k)! for n >= 1. Cf. A133297. - Peter Bala, Jul 23 2021
MAPLE
seq(n!*add((-1)^(k+1)*k*n^(n-k-1)/(n-k)!, k = 1..n), n = 1..20); # Peter Bala, Jul 23 2021
MATHEMATICA
CoefficientList[Series[-1/(1-LambertW[-x]), {x, 0, 25}], x] * Range[0, 25]!
PROG
(PARI) my(x='x+O('x^50)); Vec(serlaplace(-1/(1 - lambertw(-x)))) \\ G. C. Greubel, Nov 07 2017
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Vaclav Kotesovec, Oct 16 2016
STATUS
approved