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 A053489 #22 Jul 11 2023 08:04:17
%S A053489 1,0,4,6,64,300,2568,20160,193856,1989792,22687200,279956160,
%T A053489 3737966208,53589444480,821522026752,13407498599040,232106716968960,
%U A053489 4248256958023680,81968803604600832,1662870215019018240,35384007384670648320,788053048823608565760
%N A053489 Expansion of e.g.f.: (1-x)^(-2x).
%D A053489 R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see Example 5.2.3.
%H A053489 Vincenzo Librandi, <a href="/A053489/b053489.txt">Table of n, a(n) for n = 0..200</a>
%F A053489 E.g.f.: (1-x)^(-2*x).
%F A053489 a(n) = (-1)^n*Sum_{k=0..floor(n/2)} 2^k*binomial(n, k)*k!*Stirling1(n-k, k). - _Vladeta Jovovic_, Dec 19 2004
%F A053489 a(n) ~ n! * n * (1 + (1-2*log(n)-2*gamma)/n), where gamma is the Euler-Mascheroni constant (A001620). - _Vaclav Kotesovec_, Apr 21 2014
%t A053489 CoefficientList[Series[(1-x)^(-2*x), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Apr 21 2014 *)
%o A053489 (PARI) x='x+O('x^30); Vec(serlaplace((1-x)^(-2*x))) \\ _G. C. Greubel_, Aug 29 2018
%o A053489 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!((1-x)^(-2*x))); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Aug 29 2018
%Y A053489 Cf. A007113, A053490.
%K A053489 nonn
%O A053489 0,3
%A A053489 _N. J. A. Sloane_, Jan 15 2000