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 A348159 #11 Oct 04 2021 23:51:43
%S A348159 1,2,126,1638,2394,8190,139230,155610,2645370,5757570,97878690,
%T A348159 420302610,1963331370,7145144370
%N A348159 Indices k of records of low value in the ratios A348158(k)/k.
%C A348159 The maximal possible value of the ratio A348158(k)/k is 1 which occurs at the terms of A326835.
%C A348159 The rounded values of the corresponding records are 1, 0.5, 0.452, 0.445, 0.437, 0.424, 0.420, 0.409, 0.404, 0.398, 0.3933, 0.3927, 0.3885, 0.3879, ...
%C A348159 a(15) <= 33376633290. - _David A. Corneth_, Oct 04 2021
%t A348159 r[n_] := Plus @@ DeleteDuplicates @ Map[EulerPhi, Divisors[n]]/n; rm = 2; s = {}; Do[If[(r1 = r[n]) < rm, rm = r1; AppendTo[s, n]], {n, 1, 2*10^5}]; s
%o A348159 (PARI) f(n) = vecsum(Set(apply(eulerphi, divisors(n)))); \\ A348158
%o A348159 lista(nn) = {my(r=oo, x); for (i=1, nn, if ((x=f(i)/i) < r, print1(i, ", "); r = x););} \\ _Michel Marcus_, Oct 04 2021
%Y A348159 Cf. A326835, A328859, A348158.
%K A348159 nonn,more
%O A348159 1,2
%A A348159 _Amiram Eldar_, Oct 03 2021