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


OpenConsole()
 
Procedure.i numdiv(n)
  c=2
  For i=2 To (n+1)/2 : If n%i=0 : c+1 : EndIf : Next
  ProcedureReturn c
EndProcedure
 
Procedure.b istau(n)
  If n=1 : ProcedureReturn #True : EndIf
  If n%numdiv(n)=0 : ProcedureReturn #True : Else : ProcedureReturn #False : EndIf
EndProcedure
 
c=0 : i=1
While c<100
  If istau(i) : Print(RSet(Str(i),4)+#TAB$) : c+1 : If c%10=0 : PrintN("") : EndIf: EndIf
  i+1
Wend
 
Input()