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

Links

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

Formula

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

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]

Crossrefs

The unitary version of A101373.

Cf. A362181, A362183.

Similar sequences: A131934, A361971.

Sequence in context: A033112 A049813 A354925 * A368904 A229991 A178156

Adjacent sequences: A362181 A362182 A362183 * A362185 A362186 A362187

Keyword

nonn

Author

Amiram Eldar, Apr 10 2023

Status

approved