|
%I #8 Jul 17 2023 12:29:41
%S 2520,3360,3780,3960,4200,4320,5040,6300,6720,7200,7560,7920,8400,
%T 8640,8820,9240,9360,9900,10080,10560,10800,10920,11088,11340,11520,
%U 11700,11760,11880,12096,12240,12480,12600,12960,13104,13200,13440,13680
%N Numbers n such that n*tau(n)>5*prime(n).
%t Select[Range[15000],# DivisorSigma[0,#]>5 Prime[#]&] (* _Harvey P. Dale_, Jul 17 2023 *)
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Mar 22 2002
|
