|
%I #15 Feb 19 2014 02:27:03
%S 1,3,14,98,944,11642,175108,3108310,63601168,1473864722,38152990484,
%T 1091172974102,34169139856024,1162736848398010,42723615842296540,
%U 1685853467536076798,71101435046807892512,3191843270961299033762
%N G.f.: B(x/(1-x)) where B is g.f. of A000169.
%H Vincenzo Librandi, <a href="/A038051/b038051.txt">Table of n, a(n) for n = 1..200</a>
%F E.g.f.: int(exp(x)*(-LambertW(-x)/(1+LambertW(-x))/x), x). a(n) = Sum_{k=0..n-1} binomial(n-1, k)*(k+1)^k. - _Vladeta Jovovic_, Apr 12 2003
%F a(n) ~ n^(n-1) * exp(exp(-1)). - _Vaclav Kotesovec_, Feb 17 2014
%t CoefficientList[Series[E^x*(-LambertW[-x]/(1+LambertW[-x])/x), {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Feb 17 2014 *)
%Y Cf. A036249, A038052.
%Y E.g.f. of A048802.
%K nonn
%O 1,2
%A _Christian G. Bower_, Jan 04 1999
%E Corrected by _Christian G. Bower_, Mar 15 1999
|
