# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a172419 Showing 1-1 of 1 %I A172419 #14 Mar 10 2020 10:25:27 %S A172419 32,64,128,243,256,512,729,1024,1458,1536,1728,1944,2048,2187,2304, %T A172419 2592,2916,3072,3125,3456,3888,4096,4374,4608,5184,5832,6144,6561, %U A172419 6912,7776,8192,8748,9216,10240,10368,11664,12288,12500,12800,13122,13824,15552 %N A172419 Numbers k that have measure of smoothness J larger than 4, where J = log(k)/log(rad(k)) and rad(k) is the product of the distinct prime divisors of k (A007947). %C A172419 Subsequence of A049094 and A172418. %H A172419 Amiram Eldar, Table of n, a(n) for n = 1..10000 %t A172419 aa = {}; Do[kk = FactorInteger[c]; nn = 1; Do[nn = nn*kk[[n]][[1]], {n, 1, Length[kk]}]; If[Log[c]/Log[nn] > 4, AppendTo[aa, c]], {c, 2, 10000}]; aa %Y A172419 Cf. A007947, A049094, A172418, A172420, A172421, A172422. %K A172419 nonn %O A172419 1,1 %A A172419 _Artur Jasinski_, Feb 02 2010 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE