A357325 a(n) is the unique number m such that A034460(m) = A357324(n).

6, 15, 21, 35, 250, 138, 4192, 10048, 6112, 748, 20736, 5968, 802, 12256, 41728, 3592, 498, 53632, 8656, 80128, 2284, 2308, 36352, 2372, 10288, 5272, 11728, 84352, 1594, 630, 6472, 48448, 6616, 50368, 1426, 1762, 102016, 172288, 32416, 8872, 2328, 9544, 19408

Offset: 1

Author

Amiram Eldar, Sep 24 2022

Keywords

• nonn

Links

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

Crossrefs

The unitary version of A357313.

Cf. A034460, A057709, A357324.

Programs

Mathematica

us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n; m = 1500; v = s = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++; s[[u]] = k], {k, 1, m^2}]; s[[Position[v, 1] // Flatten]]

Formula

A034460(a(n)) = A357324(n).