A Tau number is a positive integer divisible by the count of its positive divisors.



Task
Show the first   100   Tau numbers.
The numbers shall be generated during run-time (i.e. the code may not contain string literals, sets/arrays of integers, or alike).



Related task
  Tau function


use strict;
use warnings;
use feature 'say';
use ntheory 'divisors';
 
my(@x,$n);
 
do { push(@x,$n) unless $n % scalar(divisors(++$n)) } until 100 == @x;
 
say "Tau numbers - first 100:\n" .
    ((sprintf "@{['%5d' x 100]}", @x[0..100-1]) =~ s/(.{80})/$1\n/gr);