OFFSET
1,1
COMMENTS
Numbers k which have measure of smoothness J bigger as 2. Where J = log(k)/log(rad(k)), where rad(k) is product of distinct prime divisors of k. - Artur Jasinski, Feb 02 2010
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
EXAMPLE
48 is included because 6 is largest squarefree to divide 48 and 48 /6 = 8 > sqrt(48).
MATHEMATICA
aa = {}; Do[kk = FactorInteger[c]; nn = 1; Do[nn = nn*kk[[n]][[1]], {n, 1, Length[kk]}]; If[Log[c]/Log[nn] >= 2, AppendTo[aa, c]], {c, 2, 1000}]; aa (* Artur Jasinski, Feb 02 2010 *)
Select[Range[1000], #/Last[Select[Divisors[#], SquareFreeQ]]>Sqrt[#]&] (* Harvey P. Dale, Dec 14 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 14 2001
STATUS
approved