A362668 - OEIS

%I #7 Apr 29 2023 07:38:05

%S 1,2,3,4,6,8,12,16,18,20,24,36,48,60,64,72,80,90,96,108,120,128,132,

%T 144,192,240,288,360,384,432,480,528,576,648,672,720,792,864,960,1008,

%U 1080,1104,1152,1440,1728,1920,2160,2304,2592,2880,3072,3168,3456,3600,3840

%N a(n) = A091732(A362667(n)).

%H Amiram Eldar, <a href="/A362668/b362668.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, k]], {k, 1, kmax}]; v]; seq[4000] (* using the function invIPhi from A362484 *)

%Y The infinitary version of A036912.

%Y Indices of records of A362666.

%Y Cf. A091732, A362484, A362667.

%K nonn

%O 1,2

%A _Amiram Eldar_, Apr 29 2023