A362211 a(n) is the unique solution to A323410(x) = A362185(n).
1, 6, 15, 21, 35, 11392, 1688, 10048, 53632, 101632, 5272, 2632, 6616, 50368, 1386, 102016, 1716, 1722, 161152, 4356, 11992, 92992, 4716, 101312, 589312, 2634, 644608, 3538, 3778, 898048, 30896, 16312, 3610, 3510, 4702, 1432576, 4626, 606976, 8908, 3738, 343936
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..2335
Programs
-
Mathematica
ucototient[n_] := n - Times @@ (Power @@@ FactorInteger[n] - 1); ucototient[1] = 0; With[{max = 3000}, sol = solnum = Table[0, {n, 1, max}]; Do[If[(i = ucototient[k]) <= max, sol[[i]] = k; solnum[[i]]++], {k, 2, max^2}]; Join[{1}, sol[[Position[solnum, 1] // Flatten]]]]