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 A361080 #12 Jun 15 2023 10:32:28
%S A361080 1,12,18,28,30,38,42,48,60,72,102,108,138,150,168,180,192,228,240,270,
%T A361080 282,312,348,402,420,432,462,522,570,600,618,642,660,732,768,798,810,
%U A361080 858,882,990,1008,1020,1050,1092,1152,1218,1230,1278,1290,1320,1428,1452,1482,1608,1620,1722,1788,1830,1848
%N A361080 Numbers that set records in A360224.
%t A361080 s = Table[Count[Range[k], _?(Nor[CoprimeQ[#, k], GCD[k^2 - 1, #] > 1, Divisible[k, Times @@ FactorInteger[#][[All, 1]]]] &)], {k, 1000}]; Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]
%Y A361080 Cf. A360224, A361081.
%K A361080 nonn
%O A361080 1,2
%A A361080 _Michael De Vlieger_, Jun 13 2023