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,3

Links

Table of n, a(n) for n=1..67.

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]}]]

Crossrefs

Cf. A355432, A360589.

Sequence in context: A154115 A071703 A010069 * A226872 A132895 A125499

Adjacent sequences: A360909 A360910 A360911 * A360913 A360914 A360915

Keyword

nonn

Author

Michael De Vlieger, Mar 05 2023

Status

approved