A362667 Infinitary sparsely totient numbers: numbers k such that m > k implies iphi(m) > iphi(k), where iphi is the infinitary totient function A091732.

2, 6, 8, 10, 24, 30, 42, 54, 56, 66, 120, 168, 216, 264, 270, 312, 330, 384, 408, 456, 480, 510, 552, 840, 1080, 1320, 1560, 1920, 2040, 2280, 2376, 2760, 3000, 3192, 3480, 3720, 3864, 4440, 4920, 5160, 5208, 5640, 7560, 9240, 10920, 11880, 13440, 14280, 15960

Offset: 1

Author

Amiram Eldar, Apr 29 2023

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..300

Crossrefs

The infinitary version of A036913.

Record values of A362666.

Cf. A091732, A362484, A362668.

Programs

Mathematica

s[n_] := If[(inv = invIPhi[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 invIPhi from A362484 *)