cp's OEIS Frontend

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.

A164596 Squarefree positive integers n where at least one prime divisor of n is < the product of the smaller prime divisors of n.

This page as a plain text file.
%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