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 A277466 #9 Nov 08 2017 02:31:40 %S A277466 0,1,3,17,146,1684,24294,419383,8412760,192078864,4914973770, %T A277466 139265564723,4327699948956,146323675764044,5347193667136398, %U A277466 210005149832116455,8820722263274822992,394546588041904397184,18723398414958791004690,939550079246853331267203 %N A277466 E.g.f.: -log(1-x)/(1+LambertW(-x)). %H A277466 G. C. Greubel, <a href="/A277466/b277466.txt">Table of n, a(n) for n = 0..385</a> %F A277466 a(n) ~ -log(1-exp(-1)) * n^n. %t A277466 CoefficientList[Series[-Log[1-x]/(1+LambertW[-x]), {x, 0, 25}], x] * Range[0, 25]! %t A277466 Flatten[{0, Table[(n-1)! + n!*Sum[k^k/(k!*(n-k)), {k, 1, n-1}], {n, 1, 25}]}] (* _Vaclav Kotesovec_, Oct 28 2016 *) %o A277466 (PARI) x='x+O('x^50); concat([0], Vec(serlaplace(-log(1-x)/(1 + lambertw(-x))))) \\ _G. C. Greubel_, Nov 07 2017 %Y A277466 Cf. A000312, A086331, A277465. %K A277466 nonn %O A277466 0,3 %A A277466 _Vaclav Kotesovec_, Oct 16 2016