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 A360912 #4 Mar 05 2023 11:27:20
%S A360912 0,1,2,4,8,10,14,16,21,23,26,33,34,39,44,51,52,54,55,58,67,70,76,77,
%T A360912 80,83,84,95,98,104,119,124,133,134,142,148,153,160,164,168,169,172,
%U A360912 174,178,186,191,197,201,210,217,223,229,235,236,243,252,253,255,262,266,273,276,284,294,303,309,314
%N A360912 Records in A355432.
%t A360912 rad[n_] := rad[n] = Times @@ FactorInteger[n][[All, 1]];
%t A360912 t = Select[Range[2^12], Nor[SquareFreeQ[#], PrimePowerQ[#]] &];
%t A360912 s = Select[t, #1/#2 >= #3 & @@ {#1, Times @@ #2, #2[[2]]} & @@ {#, FactorInteger[#][[All, 1]]} &];
%t A360912 {0}~Join~Union@ FoldList[Max, Table[m = s[[n]]; r = rad[m];
%t A360912 Count[TakeWhile[t, # < m &], _?(And[rad[#] == r, Mod[m, #] != 0] &)], {n, Length[s]}]]
%Y A360912 Cf. A355432, A360589.
%K A360912 nonn
%O A360912 1,3
%A A360912 _Michael De Vlieger_, Mar 05 2023