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 A007114 M0601 #41 Sep 08 2022 08:44:35
%S A007114 1,0,-2,-3,4,30,66,0,-496,-1512,1800,51480,487752,4633200,50605296,
%T A007114 620703720,8278947840,118504008000,1811156124096,29452505385600,
%U A007114 507926275873920,9260774050469760,178004846331607680,3597786477984061440,76284908749415574144,1693206585883612800000,39264054809925638534400
%N A007114 Expansion of e.g.f. (1 - x)^x.
%C A007114 It appears that a(n) is always positive for n > 9.
%D A007114 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A007114 Vincenzo Librandi, <a href="/A007114/b007114.txt">Table of n, a(n) for n = 0..200</a>
%H A007114 Branko Dragovich, <a href="https://arxiv.org/abs/1702.02569">On Summation of p-Adic Series</a>, arXiv:1702.02569 [math.NT], 2017.
%F A007114 a(n) = Sum_{k=0..n} (-1)^k * A008275(k,n-k) n!/k!. - _Max Alekseyev_, Aug 10 2013
%F A007114 a(n) ~ 2 * n! / n^3 * (1 + (17/2-3*log(n)-3*gamma)/n), where gamma is the Euler-Mascheroni constant (A001620). - _Vaclav Kotesovec_, Apr 21 2014
%t A007114 CoefficientList[Series[(1-x)^x,{x,0,30}],x]*Table[(n-1)!,{n,1,31}] (* _Vincenzo Librandi_, Jun 16 2012 *)
%o A007114 (PARI) a(n) = sum(k=0,n, (-1)^k*stirling(k,n-k)*n!/k!) \\ _Max Alekseyev_, Aug 10 2013
%o A007114 (PARI) x='x+O('x^33); Vec(serlaplace(exp(x*log(1 - x)))) \\ _Joerg Arndt_, Apr 01 2017
%o A007114 (Magma) m:=25; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!((1-x)^x)); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Aug 30 2018
%K A007114 sign
%O A007114 0,3
%A A007114 _Simon Plouffe_
%E A007114 Signs from _Christian G. Bower_, Nov 15 1998