Data update

Task/Tau-number/Applesoft-BASIC/tau-number.basic

@@ -0,0 +1,14 @@
+100 HOME
+110 PRINT "The first 100 tau numbers are:"
+120 N = 0
+130 NUM = 0
+140 LIMIT = 100
+150 IF NUM >= LIMIT THEN GOTO 230
+160  N = N+1
+170  TAU = 0
+180  FOR M = 1 TO N
+190   IF N - INT(N/M) * M = 0 THEN TAU = TAU+1
+200  NEXT M
+210  IF N - INT(N/TAU) * TAU = 0 THEN NUM = NUM+1 : PRINT N; " ";
+220 GOTO 150
+230 END