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 A172418 #15 Mar 10 2020 10:25:21
%S A172418 16,32,64,81,128,243,256,288,324,384,432,486,512,576,625,648,729,768,
%T A172418 864,972,1024,1152,1250,1280,1296,1458,1536,1600,1728,1944,2000,2048,
%U A172418 2187,2304,2401,2500,2560,2592,2916,3072,3125,3136,3200,3456,3584,3645
%N A172418 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 A172418 Subsequence of A049094.
%H A172418 Amiram Eldar, <a href="/A172418/b172418.txt">Table of n, a(n) for n = 1..10000</a>
%t A172418 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 A172418 Cf. A007947, A049094, A059172, A172419, A172420, A172421, A172422.
%K A172418 nonn
%O A172418 1,1
%A A172418 _Artur Jasinski_, Feb 02 2010