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 A330193 #19 Apr 13 2022 13:01:38
%S A330193 1,1,1,2,3,4,5,6,8,9,11,55,77,88,444,555,666,888,999,1111,4444,5555,
%T A330193 6666,9999,11111,55555,99999,333333,444444,666666,888888,999999,
%U A330193 1111111,7777777,33333333,88888888,333333333,999999999,5555555555,222222222222,44444444444444
%N A330193 a(n) is the length of the decimal expansion of A330192(n)^A330192(n).
%H A330193 Giovanni Resta, <a href="/A330193/b330193.txt">Table of n, a(n) for n = 1..61</a>
%H A330193 Cristian Cobeli, <a href="https://arxiv.org/abs/1911.09003">DOI^2</a>, arXiv:1911.09003 [math.HO], 2019. See Table 2 p. 8.
%H A330193 Cristian Cobeli, <a href="http://imar.ro/journals/Revue_Mathematique/pdfs/2021/3-4/8.pdf">DOI^2</a>, Romanian Journal Of Pure And Applied Mathematics, Tome LXVI, No. 3-4, 2021.
%F A330193 a(n) = A066022(A330192(n)).
%F A330193 a(n) = A055642(A330192(n)^A330192(n)).
%t A330193 Flatten@ Reap[Sow[1]; Do[v = d (10^nd - 1)/9; s = Solve[v-1 <= x Log10[x] < v, x, Integers]; If[s != {}, Sow[v /. s]], {nd, 15}, {d, 9}]][[2, 1]] (* _Giovanni Resta_, Dec 05 2019 *)
%Y A330193 Cf. A010785 (repdigits), A000312 (n^n), A055642, A066022, A330192.
%K A330193 nonn,base
%O A330193 1,4
%A A330193 _Michel Marcus_, Dec 05 2019
%E A330193 a(28)-a(41) from _Giovanni Resta_, Dec 05 2019