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 A053508 #25 Jan 10 2025 09:04:17
%S A053508 0,0,0,1,20,360,6860,143360,3306744,84000000,2338460520,70946979840,
%T A053508 2332989862060,82726831323136,3148511132812500,128071114403348480,
%U A053508 5546563698427324720,254873089955815096320,12387799656377835411984,635043840000000000000000
%N A053508 a(n) = binomial(n-1,3)*n^(n-4).
%D A053508 R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see Prop. 5.3.2.
%H A053508 G. C. Greubel, <a href="/A053508/b053508.txt">Table of n, a(n) for n = 1..250</a>
%F A053508 E.g.f.: LambertW(-x)^4/4!. - _Vladeta Jovovic_, Apr 07 2001
%t A053508 Table[Binomial[n-1,3]n^(n-4),{n,25}] (* _Harvey P. Dale_, Jun 17 2014 *)
%t A053508 With[{nmax = 25}, CoefficientList[Series[LambertW[-x]^4/4!, {x, 0, nmax}], x]*Range[0, nmax]!] (* _G. C. Greubel_, Nov 14 2017 *)
%o A053508 (PARI) vector(25, n, binomial(n-1,3)*n^(n-4)) \\ _G. C. Greubel_, Jan 18 2017
%o A053508 (Magma) [Binomial(n-1,3)*n^(n-4): n in [1..25]]; // _G. C. Greubel_, Nov 14 2017
%o A053508 (Sage) [binomial(n-1,3)*n^(n-4) for n in (1..25)] # _G. C. Greubel_, May 15 2019
%o A053508 (GAP) List([1..25], n-> Binomial(n-1,3)*n^(n-4)); # _G. C. Greubel_, May 15 2019
%Y A053508 Cf. A000169, A053506, A053507, A053509.
%K A053508 nonn
%O A053508 1,5
%A A053508 _N. J. A. Sloane_, Jan 15 2000