OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
156 is in the sequence because it has 3 distinct prime factors (2, 3 and 13) and 13 > sqrt(156).
MAPLE
with(numtheory): a:=proc(n) if nops(factorset(n))=3 and factorset(n)[3]^2>=n then n else fi end: seq(a(n), n=1..530);
MATHEMATICA
Select[Range[500], PrimeNu[#]==3&&FactorInteger[#][[-1, 1]]>=Sqrt[#]&] (* Harvey P. Dale, Apr 09 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Emeric Deutsch, Feb 02 2006
STATUS
approved