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 A332236 #8 Feb 16 2020 05:29:20
%S A332236 1,5,41,466,6769,119736,2497585,60037328,1634619969,49733223040,
%T A332236 1672657257721,61636181886720,2470033974057649,106970912288285696,
%U A332236 4979259164362745025,247940951411958163456,13152705012933836446465,740578125097986605678592,44115815578591964641401289
%N A332236 E.g.f.: -log(2 - 1 / (1 + LambertW(-x))).
%F A332236 E.g.f.: -log(1 - Sum_{k>=1} k^k * x^k / k!).
%F A332236 a(n) = n^n + (1/n) * Sum_{k=1..n-1} binomial(n,k) * (n-k)^(n-k) * k * a(k).
%F A332236 a(n) ~ (n-1)! * 2^n * exp(n/2). - _Vaclav Kotesovec_, Feb 16 2020
%t A332236 nmax = 19; CoefficientList[Series[-Log[2 - 1/(1 + LambertW[-x])], {x, 0, nmax}], x] Range[0, nmax]! // Rest
%t A332236 a[n_] := a[n] = n^n + (1/n) Sum[Binomial[n, k] (n - k)^(n - k) k a[k], {k, 1, n - 1}]; Table[a[n], {n, 1, 19}]
%Y A332236 Cf. A000312, A001865, A133297, A202477, A210661, A308863, A323673, A332237.
%K A332236 nonn
%O A332236 1,2
%A A332236 _Ilya Gutkovskiy_, Feb 07 2020