OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..96
MATHEMATICA
ucototient[n_] := n - Times @@ (Power @@@ FactorInteger[n] - 1); ucototient[1] = 0; With[{max = 300}, solnum = Table[0, {n, 1, max}]; Do[If[(i = ucototient[k]) <= max, solnum[[i]]++], {k, 2, max^2}]; s = {1}; solmax=1; Do[sol = solnum[[k]]; If[sol > solmax, solmax = sol; AppendTo[s, sol]], {k, 2, max}]; s]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 10 2023
STATUS
approved