OFFSET
1,1
COMMENTS
Primitive sequence underlying A137845. If k is in this sequence then any number larger than k having the same squarefree kernel is in the sequence.
EXAMPLE
8 is in the sequence as the largest prime factor of 8 is 2 and log(8) > 2 and 8 is the least positive integer with this property and squarefree kernel 2.
MATHEMATICA
rads = seq = {}; Do[rad = Times @@ (p = First /@ FactorInteger[n]); pmax = Max[p]; If[pmax < Log[n] && ! MemberQ[rads, rad], AppendTo[rads, rad]; AppendTo[seq, n]], {n, 1, 5*10^5}]; seq (* Amiram Eldar, Apr 12 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
David A. Corneth, Apr 12 2020
STATUS
approved