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,1

Links

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

Formula

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

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]]

Crossrefs

The unitary version of A357313.

Cf. A034460, A057709, A357324.

Sequence in context: A063466 A138109 A332877 * A362211 A072521 A130178

Adjacent sequences: A357322 A357323 A357324 * A357326 A357327 A357328

Keyword

nonn

Author

Amiram Eldar, Sep 24 2022

Status

approved