|
%I #7 Nov 10 2017 07:38:06
%S -1,0,0,3,28,305,3846,57337,998600,20036529,456403690,11647754921,
%T 329290975212,10214585950153,344897398385918,12590837785019145,
%U 494101941398352016,20740772742716097377,927276395603713539282,43987299891665164562377,2206610456287703987567540
%N E.g.f.: -1/((1-LambertW(-x))*(1-x)).
%H G. C. Greubel, <a href="/A277507/b277507.txt">Table of n, a(n) for n = 0..385</a>
%F a(n) ~ n^(n-1) / (4*(1-exp(-1))).
%t CoefficientList[Series[-1/(1-LambertW[-x])/(1-x), {x, 0, 20}], x] * Range[0, 20]!
%o (PARI) x='x+O('x^50); Vec(serlaplace(-1/((1 - lambertw(-x))*(1-x)))) \\ _G. C. Greubel_, Nov 08 2017
%Y Cf. A277506, A277508.
%K sign
%O 0,4
%A _Vaclav Kotesovec_, Oct 18 2016
|
