A362184 Record values in A362183.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 16, 17, 21, 23, 25, 26, 27, 31, 33, 34, 37, 38, 45, 49, 54, 59, 62, 64, 71, 80, 81, 84, 92, 99, 106, 122, 137, 145, 147, 167, 174, 180, 183, 203, 211, 231, 232, 251, 253, 283, 289, 306, 318, 342, 362, 378, 410, 412, 453

Offset: 1

Author

Amiram Eldar, Apr 10 2023

Keywords

• nonn

Links

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

Crossrefs

The unitary version of A101373.

Cf. A362181, A362183.

Similar sequences: A131934, A361971.

Programs

Mathematica

ucototient[n_] := n - Times @@ (Power @@@ FactorInteger[n] - 1); ucototient[1] = 0; With[{max = 300}, solnum = Table[0, {n, 1, max}]; Do[If[(i = ucototient[k]) <= max, solnum[[i]]++], {k, 2, max^2}]; s = {1}; solmax=1; Do[sol = solnum[[k]]; If[sol > solmax, solmax = sol; AppendTo[s, sol]], {k, 2, max}]; s]

Formula

a(n) = A362181(A362183(n)).