|
%I #8 Apr 11 2023 04:18:01
%S 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,
%T 49,54,59,62,64,71,80,81,84,92,99,106,122,137,145,147,167,174,180,183,
%U 203,211,231,232,251,253,283,289,306,318,342,362,378,410,412,453
%N Record values in A362183.
%H Amiram Eldar, <a href="/A362184/b362184.txt">Table of n, a(n) for n = 1..96</a>
%F a(n) = A362181(A362183(n)).
%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}]; s = {1}; solmax=1; Do[sol = solnum[[k]]; If[sol > solmax, solmax = sol; AppendTo[s, sol]], {k, 2, max}]; s]
%Y The unitary version of A101373.
%Y Cf. A362181, A362183.
%Y Similar sequences: A131934, A361971.
%K nonn
%O 1,2
%A _Amiram Eldar_, Apr 10 2023
|
