OFFSET
1,1
COMMENTS
The unitary version of A238895.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..78
Amiram Eldar, Table of n, a(n), A324938(a(n)) for n = 1..78
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, k]], {k, 2, m}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 05 2019
STATUS
approved