|
%I #8 May 02 2019 09:01:02
%S 8,16,24,32,36,48,54,64,72,81,96,108,128,144,160,162,192,216,240,243,
%T 256,288,320,324,360,384,400,432,480,486,512,540,576,600,640,648,720,
%U 729,768,800,810,864,896,900,960,972,1000,1024,1080,1152,1200,1215,1280
%N Numbers with more prime factors (including multiplicity) than their greatest prime factor.
%t Select[Range[1500],PrimeOmega[#]>FactorInteger[#][[-1,1]]&] (* _Harvey P. Dale_, May 02 2019 *)
%K nonn,easy,less
%O 1,1
%A _Juri-Stepan Gerasimov_, Jan 04 2009
%E Corrected and extended by _Charles R Greathouse IV_, Mar 29 2010
|
