|
%I #18 May 12 2023 11:50:18
%S 4,6,8,10,12,16,18,20,24,28,30,32,36,40,42,44,45,48,50,52,54,56,60,64,
%T 66,70,72,78,80,84,88,90,96,100,102,104,105,108,110,112,114,120,126,
%U 128,130,132,135,136,138,140,144,150,152,154,156,160,162,165,168,170
%N Numbers n such that sigma(n)*tau(n) > prime(2*n) where sigma(n) is the sum of divisors of n and tau(n) the number of divisors of n (A000005).
%t Select[Range[200],DivisorSigma[0,#]DivisorSigma[1,#]>Prime[2#]&] (* _Harvey P. Dale_, Aug 15 2011 *)
%o (PARI) for(n=1,1000, if(sigma(n)*numdiv(n)>prime(2*n),print1(n,",")))
%Y Cf. A000005, A000203, A031215, A064840.
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, Feb 28 2002
|
