This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A362668 #7 Apr 29 2023 07:38:05 %S A362668 1,2,3,4,6,8,12,16,18,20,24,36,48,60,64,72,80,90,96,108,120,128,132, %T A362668 144,192,240,288,360,384,432,480,528,576,648,672,720,792,864,960,1008, %U A362668 1080,1104,1152,1440,1728,1920,2160,2304,2592,2880,3072,3168,3456,3600,3840 %N A362668 a(n) = A091732(A362667(n)). %H A362668 Amiram Eldar, <a href="/A362668/b362668.txt">Table of n, a(n) for n = 1..300</a> %t A362668 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 A362668 The infinitary version of A036912. %Y A362668 Indices of records of A362666. %Y A362668 Cf. A091732, A362484, A362667. %K A362668 nonn %O A362668 1,2 %A A362668 _Amiram Eldar_, Apr 29 2023