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 A317104 #12 Feb 16 2025 08:33:56
%S A317104 0,1,4,21,172,1605,19206,275611,4653160,91082025,2040433930,
%T A317104 51423366951,1440390172860,44391110385661,1491847772350222,
%U A317104 54276959307240195,2124662283059851216,89017250958419937873,3973938501512332468242,188293439203215046203583
%N A317104 Expansion of e.g.f. -LambertW(-x) * Product_{k>=1} (1+x^k).
%H A317104 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/LambertW-Function.html">Lambert W-Function</a>
%H A317104 Wikipedia, <a href="http://en.wikipedia.org/wiki/Lambert_W_function">Lambert W function</a>
%F A317104 a(n) ~ c * n^(n-1), where c = QPochhammer(-1, exp(-1))/2 = 1.67792868498935419743907236983684684... - _Vaclav Kotesovec_, Jul 21 2018
%t A317104 nmax = 20; CoefficientList[Series[-LambertW[-x]*Product[1+x^k, {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!
%t A317104 Table[n!*Sum[PartitionsQ[n-k]*k^(k-1)/k!, {k, 1, n}], {n, 0, 20}]
%Y A317104 Cf. A000009, A000169, A317103.
%K A317104 nonn
%O A317104 0,3
%A A317104 _Vaclav Kotesovec_, Jul 21 2018