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 A379554 #6 Dec 30 2024 17:09:57
%S A379554 1,2,3,4,6,8,9,10,12,14,18,20,21,24,26,27,28,30,32,36,40,42,48,52,54,
%T A379554 56,60,64,72,78,80,90,96,100,108,114,120,126,128,135,136,144,150,160,
%U A379554 168,170,176,180,186,192,200,204,210,224,240,248,252,264,272,280,288
%N A379554 Records in A379552.
%H A379554 Michael De Vlieger, <a href="/A379554/b379554.txt">Table of n, a(n) for n = 1..212</a>
%t A379554 r = 0; nn = 10^9;
%t A379554 rad[x_] := Times @@ FactorInteger[x][[All, 1]];
%t A379554 s = Union@ Select[Flatten@ Table[a^2*b^3, {b, Surd[nn, 3]}, {a, Sqrt[nn/b^3]}],
%t A379554 Length@ Select[FactorInteger[#][[All, -1]], # > 2 &] >= 2 &]; nn = Length[s];
%t A379554 Reap[Do[k = s[[i]]; If[# > r, r = #; Sow[r]] &@
%t A379554 Count[Transpose@ {#, k/#} &@ #[[2 ;; Ceiling[Length[#]/2]]] &@ Divisors[k],
%t A379554 _?(And[1 < GCD @@ {##},
%t A379554 rad[#1] == rad[#2],
%t A379554 Mod[#1, #2] != 0,
%t A379554 Mod[#2, #1] != 0] & @@ # &)], {i, nn}] ][[-1, 1]]
%Y A379554 Cf. A376936, A379552, A379553.
%K A379554 nonn
%O A379554 1,2
%A A379554 _Michael De Vlieger_, Dec 25 2024