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 A348200 #5 Oct 07 2021 02:15:52
%S A348200 1,3,12,60,660,9240,157080,2984520,68643960,3226266120
%N A348200 Terms of A348004 having more unitary divisors than any smaller term.
%C A348200 The corresponding numbers of unitary divisors are 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, ... (apparently, all the powers of 2).
%C A348200 a(11) > 7*10^10, if it exists.
%e A348200 The sequence A348004 begins with 1, 3, 4, 5, 7, 8, 9, 11 and 12. The number of unitary divisors of these terms are 1, 2, 2, 2, 2, 2, 2, 2 and 4, respectively. The record values, 1, 2 and 4, occur at 1, 3 and 12, the first 3 terms of this sequence.
%t A348200 f[p_, e_] := p^e - 1; uphi[1] = 1; uphi[n_] := Times @@ f @@@ FactorInteger[n]; q[n_] := Length @ Union[uphi /@ (d = Select[Divisors[n], CoprimeQ[#, n/#] &])] == Length[d]; dm = 0; s = {}; Do[If[q[n], d = 2^PrimeNu[n]; If[d > dm, dm = d; AppendTo[s, n]]], {n, 1, 10^6}]; s
%Y A348200 The unitary version of A348198.
%Y A348200 Cf. A348002, A348004.
%K A348200 nonn,more
%O A348200 1,2
%A A348200 _Amiram Eldar_, Oct 06 2021