tau[n] := length[allFactors[n]]

for n=1 to 100
   print[tau[n] + " "]
println[]