A357324 Numbers k such that there is a unique m for which the sum of the aliquot unitary divisors of m (A034460) is k.

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

Offset: 1

Author

Amiram Eldar, Sep 24 2022

Keywords

• nonn

Comments

Numbers k such that A324938(k) = 1.

Links

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

Crossrefs

The unitary version of A057709.

Cf. A034460, A063948, A324938, A357325.

Programs

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

Formula

a(n) = A034460(A357325(n)).