|
%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
|
