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 A292062 #22 Feb 16 2025 08:33:51
%S A292062 0,1,21,552,19560,920160,55974240,4293596160,406306575360,
%T A292062 46556342784000,6357567896064000,1020650937901056000,
%U A292062 190386526063878144000,40844355820490686464000,9987985777548364185600000,2762125829379285162393600000,857790151281459139077734400000
%N A292062 Wiener index of the n-transposition graph.
%H A292062 Andrew Howroyd, <a href="/A292062/b292062.txt">Table of n, a(n) for n = 1..50</a>
%H A292062 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TranspositionGraph.html">Transposition Graph</a>
%H A292062 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/WienerIndex.html">Wiener Index</a>
%F A292062 From _Andrew Howroyd_, Sep 08 2017: (Start)
%F A292062 a(n) = n! * A067318(n) / 2.
%F A292062 a(n) = n! * (n*n! - abs(Stirling1(n+1, 2))) / 2.
%F A292062 (End)
%F A292062 a(n) = (n!/2) * Sum_{k=1..n-1} abs(Stirling1(n, n-k))*k. - _Andrew Howroyd_, Dec 09 2017
%t A292062 Table[n! (n n! + (-1)^n StirlingS1[n + 1, 2])/2, {n, 20}]
%o A292062 (PARI)
%o A292062 a(n) = n! * (n*n! - abs(stirling(n+1, 2, 1))) / 2; \\ _Andrew Howroyd_, Sep 08 2017
%Y A292062 Cf. A067318, A296194.
%K A292062 nonn
%O A292062 1,3
%A A292062 _Eric W. Weisstein_, Sep 08 2017
%E A292062 Terms a(9) and beyond from _Andrew Howroyd_, Sep 08 2017