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 A307125 #10 Apr 03 2019 09:03:39 %S A307125 0,1,2,4,17,123,1052,10568,125750,1726189,26730394,460982300, %T A307125 8766443952,182229703043,4110207945794,99970680376908, %U A307125 2608221938476016,72656914458625593,2152355976206481570,67562405794276542004,2240111797037473955984,78229640115171735522015,2870092624821982184377202 %N A307125 Expansion of e.g.f. log(1 - log(1 - x*exp(x))). %p A307125 a:=series(log(1-log(1-x*exp(x))),x=0,23): seq(n!*coeff(a,x,n),n=0..22); # _Paolo P. Lava_, Apr 03 2019 %t A307125 nmax = 22; CoefficientList[Series[Log[1 - Log[1 - x Exp[x]]], {x, 0, nmax}], x] Range[0, nmax]! %o A307125 (PARI) my(x = 'x + O('x^30)); concat(0, Vec(serlaplace(log(1 - log(1 - x*exp(x)))))) \\ _Michel Marcus_, Mar 26 2019 %Y A307125 Cf. A007550, A009444, A089064, A307126. %K A307125 nonn %O A307125 0,3 %A A307125 _Ilya Gutkovskiy_, Mar 26 2019