This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A060918 #18 Feb 20 2018 09:00:25 %S A060918 1,20,360,6860,143570,3321864,84756000,2372001720,72384192540, %T A060918 2394775746220,85443353291296,3271908306712500,133893717061821080, %U A060918 5832748749666611920,269542701201588099840,13172225935626444660144,678788199609330554538000,36790272488566573278647940 %N A060918 Expansion of e.g.f.: exp((-1)^k/k*LambertW(-x)^k)/(k-1)!, k=4. %C A060918 a(n) = A243098(n,4)/6. - _Alois P. Heinz_, Aug 19 2014 %H A060918 Vincenzo Librandi, <a href="/A060918/b060918.txt">Table of n, a(n) for n = 4..200</a> %F A060918 a(n) = (n-1)!/(k-1)!*Sum_{i=0..floor((n-k)/k)} 1/(i!*k^i)*n^(n-(i+1)*k)/(n-(i+1)*k)!, k=4. %F A060918 a(n) ~ 1/6*exp(1/4)*n^(n-1). - _Vaclav Kotesovec_, Nov 27 2012 %t A060918 CoefficientList[Series[E^(1/4*LambertW[-x]^4)/6, {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Nov 27 2012 *) %o A060918 (PARI) x='x+O('x^30); Vec(serlaplace(exp(lambertw(-x)^4/4)/3! - 1/3!)) \\ _G. C. Greubel_, Feb 19 2018 %Y A060918 Cf. A057817, A060917, A243098. %K A060918 easy,nonn %O A060918 4,2 %A A060918 _Vladeta Jovovic_, Apr 10 2001