A368242 - OEIS

%I #23 Jan 21 2024 20:33:13

%S 6,8,12,18,20,24,30,36,40,42,48,60,72,80,84,90,96,108,120,144,168,180,

%T 210,216,240,252,288,336,360,420,480,504,720,840

%N Numbers k whose number of proper divisors is greater than sqrt(k).

%F 12 is a term since it has 5 proper divisors (1,2,3,4,6), and 5 > sqrt(12).

%t Select[Range[1, 10000000], Length[Divisors[#]] - 1 > Sqrt[#] &]

%o (PARI) for(k=1,10^6,if(numdiv(k)-1 > sqrtint(k), print1(k,", "))) \\ _Joerg Arndt_, Jan 06 2024

%Y Cf. A025487, A032741, A034884.

%K nonn,fini,full

%O 1,1

%A _Zdenek Cervenka_, Dec 18 2023