

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000


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

Cf. A007370, A034448, A064000.
Sequence in context: A100966 A063977 A290136 * A306588 A219636 A047428
Adjacent sequences: A332736 A332737 A332738 * A332740 A332741 A332742


KEYWORD

nonn


AUTHOR

Amiram Eldar, Feb 21 2020


STATUS

approved



