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

6, 8, 12, 18, 20, 24, 30, 36, 40, 42, 48, 60, 72, 80, 84, 90, 96, 108, 120, 144, 168, 180, 210, 216, 240, 252, 288, 336, 360, 420, 480, 504, 720, 840

Offset

1,1

Links

Table of n, a(n) for n=1..34.

Formula

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

Mathematica

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

Prog

(PARI) for(k=1, 10^6, if(numdiv(k)-1 > sqrtint(k), print1(k, ", "))) \\ Joerg Arndt, Jan 06 2024

Crossrefs

Cf. A025487, A032741, A034884.

Sequence in context: A090259 A089241 A280270 * A315862 A315863 A315864

Adjacent sequences: A368239 A368240 A368241 * A368243 A368244 A368245

Keyword

nonn,fini,full

Author

Zdenek Cervenka, Dec 18 2023

Status

approved