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 A305323 #17 May 11 2023 09:37:48
%S A305323 1,1,4,25,211,2238,28560,425808,7261200,139367278,2973006344,
%T A305323 69775267186,1786673529746,49565881948204,1480900541242572,
%U A305323 47407364553205448,1618838460981098680,58734896900587841824,2256402484187691207152,91499934912942249975504,3905739517580787866827872
%N A305323 Expansion of e.g.f. 1/(1 + log(1 + log(1 - x))).
%H A305323 Robert Israel, <a href="/A305323/b305323.txt">Table of n, a(n) for n = 0..399</a>
%F A305323 a(n) ~ n! / (exp(2 - exp(-1)) * (1 - exp(exp(-1) - 1))^(n+1)). - _Vaclav Kotesovec_, May 31 2018
%F A305323 a(n) = Sum_{k=0..n} |Stirling1(n,k)| * A007840(k). - _Seiichi Manyama_, May 11 2023
%e A305323 E.g.f.: A(x) = 1 + x + 4*x^2/2! + 25*x^3/3! + 211*x^4/4! + 2238*x^5/5! + 28560*x^6/6! + ...
%p A305323 S:= series(1/(1+log(1+log(1-x))),x,31):
%p A305323 seq(coeff(S,x,n)*n!,n=0..30); # _Robert Israel_, May 31 2018
%t A305323 nmax = 20; CoefficientList[Series[1/(1 + Log[1 + Log[1 - x]]), {x, 0, nmax}], x] Range[0, nmax]!
%t A305323 a[0] = 1; a[n_] := a[n] = Sum[Sum[(j - 1)! Abs[StirlingS1[k, j]], {j, 1, k}] a[n - k]/k!, {k, 1, n}]; Table[n! a[n], {n, 0, 20}]
%o A305323 (PARI) x = 'x + O('x^30); Vec(serlaplace(1/(1 + log(1 + log(1 - x))))) \\ _Michel Marcus_, May 31 2018
%Y A305323 Cf. A003713, A007840, A217033, A305988.
%K A305323 nonn
%O A305323 0,3
%A A305323 _Ilya Gutkovskiy_, May 30 2018