OFFSET
1,2
COMMENTS
The maximal possible value of the ratio A319696(k)/A000005(k) is 1 which occurs at the terms of A326835.
The rounded values of the corresponding ratios are 1, 0.5, 0.417, 0.375, 0.35, 0.333, 0.321, 0.313, 0.306, 0.275, 0.25, 0.232, 0.219, 0.208, 0.2, 0.193, 0.188, 0.183, 0.179, 0.170, 0.168, 0.158, 0.148, 0.141, 0.135, 0.132, 0.130, 0.129, 0.122, 0.117, 0.115, 0.108, 0.102, 0.101, ...
MATHEMATICA
r[n_] := Length @ Union[EulerPhi /@ (d = Divisors[n])]/Length[d]; rm = 2; s = {}; Do[r1 = r[n]; If[r1 < rm, rm = r1; AppendTo[s, n]], {n, 1, 10^5}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 28 2019
STATUS
approved