%I
%S 840,1260,1440,1680,1800,1980,2016,2100,2160,2340,2400,2520,2640,2700,
%T 2880,3024,3120,3240,3360,3600,3696,3780,3960,4032,4080,4200,4320,
%U 4368,4536,4560,4620,4680,4752,4800,5040,5280,5400,5460,5520,5544,5616,5670
%N Numbers n such that n*tau(n)>4*prime(n).
%t Select[Range[6000],# DivisorSigma[0,#]>4 Prime[#]&] (* _Harvey P. Dale_, Sep 12 2020 *)
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Mar 22 2002
