Take[Select[Range[10000], Divisible[#, Length[Divisors[#]]] &], 100]