|
|
A357324
|
|
Numbers k such that there is a unique m for which the sum of the aliquot unitary divisors of m (A034460) is k.
|
|
4
|
|
|
6, 9, 11, 13, 128, 150, 164, 222, 224, 332, 338, 390, 404, 416, 420, 458, 510, 548, 558, 570, 576, 582, 584, 598, 660, 668, 750, 788, 800, 810, 818, 822, 836, 852, 878, 884, 926, 930, 1046, 1118, 1200, 1202, 1230, 1244, 1250, 1260, 1284, 1298, 1304, 1382, 1422, 1472, 1478
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Numbers k such that A324938(k) = 1.
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|