|
%I #10 Apr 11 2023 04:17:54
%S 0,4,7,9,11,216,218,220,546,652,666,700,834,850,906,924,996,1242,1386,
%T 1476,1506,1516,1596,1646,1662,1758,1770,1858,1890,1900,1946,2046,
%U 2170,2262,2352,2422,2578,2626,2668,2682,2814,2842,2980,2992,3010,3048,3100,3154
%N Numbers k with a single solution x to the equation A323410(x) = k.
%C Numbers k such that A362181(k) = 1.
%H Amiram Eldar, <a href="/A362185/b362185.txt">Table of n, a(n) for n = 1..2335</a> (terms below 10^5)
%e 0 is a term since there is only one solution, x = 1, to A323410(x) = 0.
%t 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]]
%Y Cf. A323410, A362181.
%Y The unitary version of A131825.
%Y Similar sequence: A361969.
%K nonn
%O 1,2
%A _Amiram Eldar_, Apr 10 2023
|
