login
Numbers n such that n*tau(n)>4*prime(n).
0

%I #8 Sep 12 2020 15:10:06

%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