Data commit

Task/Tau-number/M2000-Interpreter/tau-number.m2000

@@ -0,0 +1,16 @@
+module tau_numbers {
+	print "The first 100 tau numbers are:"
+	long n, num, limit=100, tau, m
+	while num < limit
+		n++:
+		tau=0
+		for m=1 to n{if n mod m=0 then tau++}
+		if n mod tau= 0 else continue
+		num++:if num mod 10 = 1 then print
+		print format$("{0::-5}",n);
+	end while
+	print
+}
+profiler
+tau_numbers
+print timecount