OFFSET
1,1
COMMENTS
Numbers k such that A324938(k) = 1.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n; m = 1500; v = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++], {k, 1, m^2}]; Position[v, 1] // Flatten
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 24 2022
STATUS
approved