login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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

%I #8 Apr 29 2023 07:33:49

%S 2,6,8,10,24,30,42,54,56,66,120,168,216,264,270,312,330,384,408,456,

%T 480,510,552,840,1080,1320,1560,1920,2040,2280,2376,2760,3000,3192,

%U 3480,3720,3864,4440,4920,5160,5208,5640,7560,9240,10920,11880,13440,14280,15960

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

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

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

%Y The infinitary version of A036913.

%Y Record values of A362666.

%Y Cf. A091732, A362484, A362668.

%K nonn

%O 1,1

%A _Amiram Eldar_, Apr 29 2023