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 A359242 #12 Jan 09 2023 13:02:52 %S A359242 2,58,61,65,73,77,1279789,1280057,1280066,1280073,1280437,1280441, %T A359242 1281155,1281161,1281165,1281179,1281190,1281243,1281247,1281262, %U A359242 1281271,1281313,1281365 %N A359242 Consider the race between primes, squarefree semiprimes, ..., products of k distinct primes; sequence indicates when one overtakes another to give a new race leader. %C A359242 This is A276176 for squarefree integers as listed in A340316 table. %o A359242 (PARI) lista() = {my(nb = 10^7); my(ip = 1); while (factorback(primes(ip)) < nb, ip++); my(vp = vector(ip), list = List([2]), listi = List([1]), lastnb=1, lasti=1, nba = 3, nbb = nb); vp[lasti]++; for (i=1, 2, forsquarefree(isqf=nba, nbb, my(newi = omega(isqf[2])); vp[newi]++; if (newi != lasti, if (vp[newi] > vp[lasti], lasti = newi; listput(list, isqf[1]); listput(listi, vp[newi]);););); nba = nbb + 1; nbb = nbb + nb;); Vec(list);} \\ _Michel Marcus_, Dec 22 2022 %Y A359242 Cf. A276176, A340316. %Y A359242 Essentially the same as A335293. %K A359242 nonn,more %O A359242 1,1 %A A359242 _Michel Marcus_, Dec 22 2022 %E A359242 Name clarified by _Peter Munn_, Dec 31 2022