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 A007113 M0919 #37 Jun 06 2019 09:27:38
%S A007113 1,0,2,-3,20,-90,594,-4200,34544,-316008,3207240,-35699400,432690312,
%T A007113 -5672581200,79991160144,-1207367605080,19423062612480,
%U A007113 -331770360922560,5997105160795584,-114373526841360000,2295170834453089920,-48344592370577247360
%N A007113 Expansion of e.g.f. (1 + x)^x.
%D A007113 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%D A007113 R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see Example 5.2.3.
%H A007113 Vincenzo Librandi, <a href="/A007113/b007113.txt">Table of n, a(n) for n = 0..200</a>
%H A007113 INRIA Algorithms Project, <a href="http://ecs.inria.fr/services/structure?nbr=75">Encyclopedia of Combinatorial Structures 75</a>
%F A007113 a(n) = Sum_{k=0..floor(n/2)} binomial(n, k)*k!*Stirling1(n-k, k). - _Vladeta Jovovic_, Dec 19 2004
%F A007113 a(n) ~ (-1)^n * n!. - _Vaclav Kotesovec_, Jun 06 2019
%p A007113 a:= n-> n! *coeff(series((1+x)^x, x, n+1), x, n):
%p A007113 seq(a(n), n=0..30); # _Alois P. Heinz_, Dec 12 2012
%t A007113 CoefficientList[Series[(1 + x)^x, {x, 0, 19}], x]*Table[(n - 1)!, {n, 1, 20}]
%t A007113 a[n_] := (-1)^n*n!*Sum[ StirlingS1[n - k, k]/(n - k)!*(-1)^(n - 2*k), {k, 1, n}]; a[0] = 1; Table[a[n], {n, 0, 19}] (* _Jean-François Alcover_, Dec 12 2012, after _Vladeta Jovovic_ *)
%Y A007113 Cf. A053489, A053490. Apart from initial terms and signs, same as A066166.
%K A007113 sign
%O A007113 0,3
%A A007113 _Simon Plouffe_
%E A007113 Signs from _Christian G. Bower_, Nov 15 1998