OFFSET
1,1
EXAMPLE
5389230 is in the sequence because it has 6 distinct prime factors (2, 3, 5, 7, 11 and 2333) and 2333 > sqrt(5389230).
MAPLE
with(numtheory): a:=proc(n) if nops(factorset(n))=6 and factorset(n)[6]^2>=n then n else fi end: seq(a(n), n=(2*3*5*7*11)^2..5850000);
MATHEMATICA
dpf6Q[n_]:=Module[{pf=FactorInteger[n][[All, 1]]}, Length[pf]==6 && pf[[6]]>=Sqrt[n]]; Select[Range[6*10^6], dpf6Q] (* Harvey P. Dale, Mar 24 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Emeric Deutsch, Feb 02 2006
STATUS
approved