A360912 - OEIS

%I #4 Mar 05 2023 11:27:20

%S 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 80,83,84,95,98,104,119,124,133,134,142,148,153,160,164,168,169,172,

%U 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 Records in A355432.

%t rad[n_] := rad[n] = Times @@ FactorInteger[n][[All, 1]];

%t t = Select[Range[2^12], Nor[SquareFreeQ[#], PrimePowerQ[#]] &];

%t s = Select[t, #1/#2 >= #3 & @@ {#1, Times @@ #2, #2[[2]]} & @@ {#, FactorInteger[#][[All, 1]]} &];

%t {0}~Join~Union@ FoldList[Max, Table[m = s[[n]]; r = rad[m];

%t   Count[TakeWhile[t, # < m &], _?(And[rad[#] == r, Mod[m, #] != 0] &)], {n, Length[s]}]]

%Y Cf. A355432, A360589.

%K nonn

%O 1,3

%A _Michael De Vlieger_, Mar 05 2023