login
Unitary sparsely totient numbers: numbers k such that m > k implies uphi(m) > uphi(k), where uphi is the unitary totient function (A047994).
3

%I #9 Apr 13 2023 02:35:45

%S 2,6,10,14,30,42,66,78,102,114,138,210,222,330,390,462,510,570,690,

%T 714,798,870,930,966,1110,1230,1290,1302,1410,1470,1590,1770,2310,

%U 2730,3570,3990,4290,4830,5610,6090,6510,6630,7770,8610,9030,9870,10230,11130,11310

%N Unitary sparsely totient numbers: numbers k such that m > k implies uphi(m) > uphi(k), where uphi is the unitary totient function (A047994).

%H Amiram Eldar, <a href="/A362230/b362230.txt">Table of n, a(n) for n = 1..300</a>

%t s[n_] := If[(inv = invUPhi[n]) == {}, 0, Max[inv]]; seq[kmax_] := Module[{v = {}, s1, sm = 0}, Do[s1 = s[k]; If[s1 > sm, sm = s1; AppendTo[v, s1]], {k, 1, kmax}]; v]; seq[3000] (* using the function invUPhi from A361966 *)

%Y The unitary version of A036913.

%Y Record values of A362229.

%Y Cf. A047994, A361966, A362231.

%K nonn

%O 1,1

%A _Amiram Eldar_, Apr 12 2023