%I #15 Mar 10 2020 10:25:21

%S 16,32,64,81,128,243,256,288,324,384,432,486,512,576,625,648,729,768,

%T 864,972,1024,1152,1250,1280,1296,1458,1536,1600,1728,1944,2000,2048,

%U 2187,2304,2401,2500,2560,2592,2916,3072,3125,3136,3200,3456,3584,3645

%N Numbers k that have measure of smoothness J larger than 3, where J = log(k)/log(rad(k)) and rad(k) is the product of the distinct prime divisors of k (A007947).

%C Subsequence of A049094.

%H Amiram Eldar, <a href="/A172418/b172418.txt">Table of n, a(n) for n = 1..10000</a>

%t aa = {}; Do[kk = FactorInteger[c]; nn = 1; Do[nn = nn*kk[[n]][[1]], {n, 1, Length[kk]}]; If[Log[c]/Log[nn] > 3, AppendTo[aa, c]], {c, 2, 10000}]; aa

%Y Cf. A007947, A049094, A059172, A172419, A172420, A172421, A172422.

%K nonn

%O 1,1

%A _Artur Jasinski_, Feb 02 2010