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 A073596 #23 Feb 12 2025 09:27:13
%S A073596 0,1,5,23,116,669,4429,33375,283072,2673321,27845293,317274407,
%T A073596 3926774180,52469606981,752922837861,11549166072847,188596608142560,
%U A073596 3266826328953745,59830416584102325,1155208913864163511,23453274942011893556,499481183766226468013
%N A073596 Expansion of e.g.f. exp(x) * log(1-x)/(x-1).
%C A073596 a(n) is the total number of cycles obtained by permuting the elements in every subset of {1,2,...,n}. - _Geoffrey Critzer_, Sep 24 2013
%H A073596 Alois P. Heinz, <a href="/A073596/b073596.txt">Table of n, a(n) for n = 0..450</a>
%F A073596 Binomial transform of A000254.
%F A073596 a(n) ~ n! * exp(1) * (log(n) + gamma), where gamma is the Euler-Mascheroni constant A001620. - _Vaclav Kotesovec_, Jul 02 2015
%p A073596 b:= proc(n) option remember; `if`(n<2, n, n*b(n-1)+(n-1)!) end:
%p A073596 a:= proc(n) add(b(k)*binomial(n, k), k=0..n) end:
%p A073596 seq(a(n), n=0..25); # _Alois P. Heinz_, Mar 07 2018
%t A073596 nn=19;Range[0,nn]!CoefficientList[Series[Exp[x]Log[1/(1-x)]/(1-x),{x,0,nn}],x] (* _Geoffrey Critzer_, Sep 24 2013 *)
%o A073596 (PARI) x='x+O('x^30); concat([0], Vec(serlaplace(exp(x)*log(1-x)/(x-1)))) \\ _G. C. Greubel_, Aug 28 2018
%o A073596 (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Exp(x)*Log(1-x)/(x-1))); [0] cat [Factorial(n)*b[n]: n in [1..m-1]]; // _G. C. Greubel_, Aug 28 2018
%Y A073596 Column k=2 of A269951 (with a different offset).
%Y A073596 Cf. A000254.
%K A073596 easy,nonn
%O A073596 0,3
%A A073596 _Vladeta Jovovic_, Aug 28 2002