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 A379754 #7 Jan 04 2025 07:39:22
%S A379754 1,2,3,4,6,7,9,11,12,15,16,19,21,23,27,28,37,40,47,53,57,59,66,67,69,
%T A379754 73,79,81,85,88,92,103,117,125,133,146,147,153,165,175,185,189,197,
%U A379754 204,227,229,237,245,269,281,289,306,311,321,349,367,393,397,417,428
%N A379754 Records in A379752.
%C A379754 See comments in A379752.
%H A379754 Michael De Vlieger, <a href="/A379754/b379754.txt">Table of n, a(n) for n = 1..226</a>
%t A379754 (* Load function f at A025487 *)
%t A379754 r = 0;
%t A379754 s = Select[Union@ Flatten@ f[14][[4 ;; -1]], Not@*SquareFreeQ];
%t A379754 nn = Length[s]; Print[nn];
%t A379754 Reap[Do[k = s[[i]]; If[# > r, r = #; Sow[r]] &@
%t A379754 Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2] ]] &@ Divisors[k],
%t A379754 _?(And[1 < GCD @@ {##},
%t A379754 Nor[Divisible[#2, rad[#1]],
%t A379754 Divisible[#1, rad[#2]] ] ] & @@ # &)], {i, nn}] ][[-1, 1]]
%Y A379754 Cf. A379554, A379752, A379753.
%K A379754 nonn
%O A379754 1,2
%A A379754 _Michael De Vlieger_, Jan 01 2025