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 A362487 #12 Apr 22 2023 11:39:01 %S A362487 1,6,12,24,48,96,144,240,288,480,576,720,1152,1440,2880,4320,5760, %T A362487 8640,11520,17280,34560,51840,69120,103680,120960,172800,207360, %U A362487 241920,345600,362880,414720,483840,725760,967680,1209600,1451520,1935360,2419200,2903040,3628800 %N A362487 Infinitary highly totient numbers: numbers k that have more solutions x to the equation iphi(x) = k than any smaller k, where iphi is the infinitary totient function A091732. %C A362487 Indices of records of A362485. %C A362487 The corresponding numbers of solutions are 2, 4, 6, 10, 14, 18, 22, ... (A362488). %H A362487 Amiram Eldar, <a href="/A362487/b362487.txt">Table of n, a(n) for n = 1..50</a> %t A362487 solnum[n_] := Length[invIPhi[n]]; seq[kmax_] := Module[{s = {}, solmax=0}, Do[sol = solnum[k]; If[sol > solmax, solmax = sol; AppendTo[s, k]], {k, 1, kmax}]; s]; seq[10^4] (* using the function invIPhi from A362484 *) %Y A362487 Cf. A091732, A362484, A362485, A362486, A362488. %Y A362487 Similar sequences: A097942, A100827, A361968, A362183. %K A362487 nonn %O A362487 1,2 %A A362487 _Amiram Eldar_, Apr 22 2023