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 A052822 #22 Aug 31 2018 00:23:41
%S A052822 0,0,2,12,80,630,5816,61978,751222,10225140,154610048,2573280820,
%T A052822 46775427860,922374085984,19616567407368,447666534959528,
%U A052822 10913339500879576,283081184691349600,7785415448640271232,226306589802176060640,6933002797216545295968
%N A052822 A simple grammar: pairs of cycles of cycles.
%H A052822 G. C. Greubel, <a href="/A052822/b052822.txt">Table of n, a(n) for n = 0..418</a>
%H A052822 INRIA Algorithms Project, <a href="http://ecs.inria.fr/services/structure?nbr=787">Encyclopedia of Combinatorial Structures 787</a>
%F A052822 E.g.f.: log(-1/(-1+log(-1/(-1+x))))^2.
%F A052822 E.g.f.: (log(1+log(1-x)))^2. - _Vaclav Kotesovec_, Oct 01 2013
%F A052822 a(n) ~ (n-1)! * 2*(exp(1)/(exp(1)-1))^n * (log(n) + gamma - log(exp(1)-1)), where gamma is Euler-Mascheroni constant (A001620). - _Vaclav Kotesovec_, Oct 01 2013
%p A052822 spec := [S,{B=Cycle(Z),C=Cycle(B),S=Prod(C,C)},labeled]: seq(combstruct[count](spec,size=n), n=0..20);
%t A052822 CoefficientList[Series[(Log[1+Log[1-x]])^2, {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Oct 01 2013 *)
%o A052822 (PARI) x='x+O('x^30); concat([0,0], Vec(serlaplace((log(1+log(1-x)))^2))) \\ _G. C. Greubel_, Aug 30 2018
%K A052822 easy,nonn
%O A052822 0,3
%A A052822 encyclopedia(AT)pommard.inria.fr, Jan 25 2000
%E A052822 More terms from _Alois P. Heinz_, Mar 16 2016