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 A361081 #14 Jul 28 2024 03:47:59
%S A361081 0,1,3,4,5,6,12,14,19,31,46,52,68,70,74,89,104,123,128,146,158,176,
%T A361081 199,207,229,257,264,311,339,370,375,391,396,409,428,446,514,532,559,
%U A361081 578,595,650,666,695,727,728,801,807,843,861,929,939,953,1025,1087,1134,1143,1164,1197,1221,1282,1314,1327
%N A361081 Records in A360224.
%F A361081 a(n) = A360224(A361080(n)).
%t A361081 Union@ FoldList[Max, Table[Count[Range[k], _?(Nor[CoprimeQ[#, k], GCD[k^2 - 1, #] > 1, Divisible[k, Times @@ FactorInteger[#][[All, 1]] ] ] &)], {k, 2^11}] ]
%Y A361081 Cf. A360224, A361080.
%K A361081 nonn
%O A361081 1,3
%A A361081 _Michael De Vlieger_, Jun 13 2023