OFFSET
1,3
COMMENTS
The unitary version of A238896.
MATHEMATICA
us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n; m = 300; v = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++], {k, 1, m^2}]; s = {}; vm = -1; Do[If[v[[k]] > vm, vm = v[[k]]; AppendTo[s, vm]], {k, 2, m}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 05 2019
STATUS
approved