login
A332739
Numbers k such that usigma(x) = k has a unique solution, where usigma(k) is the sum of unitary divisors of k (A034448).
1
1, 3, 4, 5, 6, 8, 9, 10, 14, 17, 26, 28, 33, 38, 40, 44, 56, 62, 65, 70, 74, 78, 82, 98, 100, 110, 112, 122, 129, 130, 136, 138, 158, 164, 174, 176, 182, 186, 190, 194, 208, 210, 212, 220, 222, 230, 238, 242, 244, 246, 248, 250, 256, 257, 258, 278, 282, 284, 290
OFFSET
1,2
LINKS
MATHEMATICA
usigma[1] = 1; usigma[n_] := Times @@ (1 + Power @@@ FactorInteger[n]); m = 300; v = Table[ 0, {m}]; Do[u = usigma[k]; If[u <= m, v[[u]]++], {k, 1, m}]; Position[v, _?(# == 1 &)]//Flatten
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Feb 21 2020
STATUS
approved