A362185 Numbers k with a single solution x to the equation A323410(x) = k.

0, 4, 7, 9, 11, 216, 218, 220, 546, 652, 666, 700, 834, 850, 906, 924, 996, 1242, 1386, 1476, 1506, 1516, 1596, 1646, 1662, 1758, 1770, 1858, 1890, 1900, 1946, 2046, 2170, 2262, 2352, 2422, 2578, 2626, 2668, 2682, 2814, 2842, 2980, 2992, 3010, 3048, 3100, 3154

Offset

1,2

Comments

Numbers k such that A362181(k) = 1.

Links

Amiram Eldar, Table of n, a(n) for n = 1..2335 (terms below 10^5)

Example

0 is a term since there is only one solution, x = 1, to A323410(x) = 0.

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}]; Join[{0}, Position[solnum, 1] // Flatten]]

Crossrefs

Cf. A323410, A362181.

The unitary version of A131825.

Similar sequence: A361969.

Sequence in context: A310950 A256823 A074341 * A085922 A048973 A092861

Adjacent sequences: A362182 A362183 A362184 * A362186 A362187 A362188

Keyword

nonn

Author

Amiram Eldar, Apr 10 2023

Status

approved