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,1

Links

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

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 *)

Crossrefs

The infinitary version of A036913.

Record values of A362666.

Cf. A091732, A362484, A362668.

Sequence in context: A118257 A066762 A066198 * A299381 A247984 A108417

Adjacent sequences: A362664 A362665 A362666 * A362668 A362669 A362670

Keyword

nonn

Author

Amiram Eldar, Apr 29 2023

Status

approved