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 A164596 #11 Oct 06 2019 11:12:51 %S A164596 30,70,105,154,165,182,195,210,231,273,286,330,357,374,385,390,399, %T A164596 418,429,442,455,462,494,510,546,561,570,595,598,627,646,663,665,690, %U A164596 714,715,741,759,770,782,798,805,858,870,874,897,910,930,935,957,966,969 %N A164596 Squarefree positive integers n where at least one prime divisor of n is < the product of the smaller prime divisors of n. %C A164596 Each term is divisible by at least 3 primes. %H A164596 Amiram Eldar, <a href="/A164596/b164596.txt">Table of n, a(n) for n = 1..10000</a> %e A164596 70 is factored as 2*5*7. Since 2*5 > 7, then 70 is in this sequence. %t A164596 aQ[n_] := SquareFreeQ[n] && Module[{p = FactorInteger[n][[;;,1]], ans = False}, Do[If[p[[k]] < Times @@ p[[1 ;; k-1]], ans = True; Break[]], {k, 1, Length[p]}]; ans]; Select[Range[1000], aQ] (* _Amiram Eldar_, Oct 06 2019 *) %K A164596 nonn %O A164596 1,1 %A A164596 _Leroy Quet_, Aug 17 2009 %E A164596 More terms from _Max Alekseyev_, Sep 04 2009