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 A289127 #11 Mar 26 2023 02:20:40
%S A289127 1,3,7,31,211,2311,32048,512768,9737984,300690391,6915878971,
%T A289127 8626257644
%N A289127 Numbers k such that uphi(k)/uphi(uphi(k)) > uphi(m)/uphi(uphi(m)) for all m < k, where uphi is the unitary totient function (A047994).
%H A289127 Paul Erdős and M. V. Subbarao, <a href="http://www.math.ualberta.ca/~subbarao/documents/Subbarao1.pdf">On the iterates of some arithmetic functions</a>, The theory of arithmetic functions (Proc. Conf., Western Michigan Univ., Kalamazoo, Mich. 1971), Lecture Notes in Math., 251, pp. 119-125, Springer, Berlin, 1972. [<a href="http://www.renyi.hu/~p_erdos/1972-17.pdf">alternate link</a>]
%t A289127 uphi[n_] := If[n==1,1,(Times @@ (Table[ #[[1]]^ #[[2]] - 1, {1} ] & /@ FactorInteger[n]))[[1]]]; a = {}; k=1; rmax = 0; While[Length[a]<8,s = uphi[ k]; s2 = uphi[ s]; r = s/s2; If[r > rmax, AppendTo[a, k]; rmax = r]; k++]; a
%Y A289127 The unitary version of A289125.
%Y A289127 Cf. A047994.
%K A289127 nonn,more
%O A289127 1,2
%A A289127 _Amiram Eldar_, Jun 25 2017
%E A289127 a(10)-a(12) from _Amiram Eldar_, Mar 26 2023