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 A347993 #8 Sep 24 2021 02:52:52
%S A347993 1,2,15,136,1645,24336,426979,8658560,199234809,5128019200,
%T A347993 145969492471,4552809182208,154404454932325,5656950010320896,
%U A347993 222655633595044875,9369696305273798656,419790650812640438641,19950175280765680680960,1002394352017754098219999,53092232229227200348160000
%N A347993 a(n) = n! * Sum_{k=1..n} (-1)^(k+1) * n^(n-k) / (n-k)!.
%F A347993 E.g.f.: -LambertW(-x) / (1 - LambertW(-x)^2).
%F A347993 a(n) = n * A133297(n).
%t A347993 Table[n! Sum[(-1)^(k + 1) n^(n - k)/(n - k)!, {k, 1, n}], {n, 1, 20}]
%t A347993 nmax = 20; CoefficientList[Series[-LambertW[-x]/(1 - LambertW[-x]^2), {x, 0, nmax}], x] Range[0, nmax]! // Rest
%o A347993 (PARI) a(n) = n! * sum(k=1, n, (-1)^(k+1)*n^(n-k)/(n-k)!); \\ _Michel Marcus_, Sep 23 2021
%Y A347993 Cf. A000169, A000312, A001865, A063169, A133297, A134095, A277458, A347994.
%K A347993 nonn
%O A347993 1,2
%A A347993 _Ilya Gutkovskiy_, Sep 23 2021