This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A172420 #15 Sep 04 2023 16:36:09
%S A172420 64,128,256,512,729,1024,2048,2187,4096,6561,8192,8748,9216,10368,
%T A172420 11664,12288,13122,13824,15552,15625,16384,17496,18432,19683,20736,
%U A172420 23328,24576,26244,27648,31104,32768,34992,36864,39366,41472,46656,49152
%N A172420 Numbers k that have measure of smoothness J larger than 5, where J = log(k)/log(rad(k)) and rad(k) is the product of the distinct prime divisors of k (A007947).
%C A172420 This sequence is a subsequence of A049094, A172418, and A172419.
%H A172420 Amiram Eldar, <a href="/A172420/b172420.txt">Table of n, a(n) for n = 1..3000</a> (terms 1..368 from Harvey P. Dale)
%t A172420 aa = {}; Do[kk = FactorInteger[c]; nn = 1; Do[nn = nn*kk[[n]][[1]], {n, 1, Length[kk]}]; If[Log[c]/Log[nn] > 5, AppendTo[aa, c]], {c, 2, 10000}]; aa
%t A172420 Select[Range[2,50000],Log[Times@@FactorInteger[#][[All,1]],#]>5&] (* _Harvey P. Dale_, Apr 30 2018 *)
%Y A172420 Cf. A007947, A049094, A059172, A172418, A172419, A172421, A172422.
%K A172420 nonn
%O A172420 1,1
%A A172420 _Artur Jasinski_, Feb 02 2010