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 A346845 #11 Aug 06 2021 04:33:31
%S A346845 1,5,29,186,1374,11352,105048,1070640,11978640,145558080,1914027840,
%T A346845 27035890560,408891369600,6585851059200,112656894336000,
%U A346845 2038285492992000,38915729475840000,781515776369664000,16475855040820224000,363685261902133248000,8391522945839007744000
%N A346845 E.g.f.: log(1 + x) / (1 - x)^3.
%F A346845 a(n) = n! * Sum_{k=1..n} (-1)^(k+1) * binomial(n-k+2,2) / k.
%F A346845 a(n) ~ log(2) * n^2 * n! / 2. - _Vaclav Kotesovec_, Aug 06 2021
%t A346845 nmax = 21; CoefficientList[Series[Log[1 + x]/(1 - x)^3, {x, 0, nmax}], x] Range[0, nmax]! // Rest
%t A346845 Table[n! Sum[(-1)^(k + 1) Binomial[n - k + 2, 2]/k , {k, 1, n}], {n, 1, 21}]
%t A346845 Table[n!*(((-1)^n*(2*n + 5) - 4*n - 5)/8 + (n+1)*(n+2)*(Log[2] - (-1)^n * LerchPhi[-1, 1, 1 + n])/2), {n, 1, 21}] // Simplify (* _Vaclav Kotesovec_, Aug 06 2021 *)
%o A346845 (PARI) my(x='x+O('x^25)); Vec(serlaplace(log(1+x)/(1-x)^3)) \\ _Michel Marcus_, Aug 06 2021
%Y A346845 Cf. A000217, A001711, A024167, A109792, A346846, A346847.
%K A346845 nonn
%O A346845 1,2
%A A346845 _Ilya Gutkovskiy_, Aug 05 2021