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 A351181 #14 Feb 18 2022 16:11:20
%S A351181 1,1,17,826,79107,12553011,2979141058,988163147091,436562014218313,
%T A351181 247800100563125728,175732698005376526429,152264214647249387402567,
%U A351181 158273183995563848011907696,194391589002961482387840145341
%N A351181 a(n) = Sum_{k=0..n} k^(k+n) * Stirling2(n,k).
%F A351181 E.g.f.: Sum_{k>=0} (k * (exp(k*x) - 1))^k / k!.
%F A351181 a(n) ~ c * r^(2*n) * (1 + exp(1 + 1/r))^n * n^(2*n) / exp(2*n), where r = 0.942405403803582963024019065398882138211529545249588032669864757847... is the root of the equation r*(1 + exp(-1 - 1/r)) * LambertW(-exp(-1/r)/r) = -1 and c = 0.94346979328254581112250921799629823027437848684764713214690470878402... - _Vaclav Kotesovec_, Feb 18 2022
%t A351181 a[0] = 1; a[n_] := Sum[k^(k + n) * StirlingS2[n, k], {k, 1, n}]; Array[a, 14, 0] (* _Amiram Eldar_, Feb 04 2022 *)
%o A351181 (PARI) a(n) = sum(k=0, n, k^(k+n)*stirling(n, k, 2));
%o A351181 (PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(sum(k=0, N, (k*(exp(k*x)-1))^k/k!)))
%Y A351181 Cf. A108459, A229233, A229261, A282190, A308490.
%Y A351181 Cf. A350722, A351180.
%K A351181 nonn
%O A351181 0,3
%A A351181 _Seiichi Manyama_, Feb 04 2022