OFFSET
1,1
MATHEMATICA
Select[Range[1500], PrimeOmega[#]>FactorInteger[#][[-1, 1]]&] (* Harvey P. Dale, May 02 2019 *)
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Juri-Stepan Gerasimov, Jan 04 2009
EXTENSIONS
Corrected and extended by Charles R Greathouse IV, Mar 29 2010
STATUS
approved