OFFSET
1,2
COMMENTS
The corresponding record values are 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 16, 17, 18, 20, 21, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, ...
EXAMPLE
2 has 2 divisors with the same value of phi: phi(1) = phi(2) = 1.
12 has 3 divisors with the same value of phi: phi(3) = phi(4) = phi(6) = 2.
MATHEMATICA
f[n_] := Max[Tally[EulerPhi /@ Divisors[n]][[;; , 2]]]; fm = 0; s = {}; Do[f1 = f[n]; If[f1 > fm, fm = f1; AppendTo[s, n]], {n, 1, 10^6}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 28 2019
STATUS
approved