A360912 Records in A355432.

0, 1, 2, 4, 8, 10, 14, 16, 21, 23, 26, 33, 34, 39, 44, 51, 52, 54, 55, 58, 67, 70, 76, 77, 80, 83, 84, 95, 98, 104, 119, 124, 133, 134, 142, 148, 153, 160, 164, 168, 169, 172, 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

Offset: 1

Author

Michael De Vlieger, Mar 05 2023

Keywords

• nonn

Crossrefs

Cf. A355432, A360589.

Programs

Mathematica

rad[n_] := rad[n] = Times @@ FactorInteger[n][[All, 1]];
t = Select[Range[2^12], Nor[SquareFreeQ[#], PrimePowerQ[#]] &];
s = Select[t, #1/#2 >= #3 & @@ {#1, Times @@ #2, #2[[2]]} & @@ {#, FactorInteger[#][[All, 1]]} &];
{0}~Join~Union@ FoldList[Max, Table[m = s[[n]]; r = rad[m];
  Count[TakeWhile[t, # < m &], _?(And[rad[#] == r, Mod[m, #] != 0] &)], {n, Length[s]}]]