Data update

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

@@ -0,0 +1,19 @@
+10 PRINT "THE FIRST 100 TAU NUMBERS ARE:"
+20 LET N = 0
+30 LET M = 0
+40 LET L = 100
+50 IF M >= L THEN 190
+60 LET N = N + 1
+70 LET T = 0
+80 FOR I = 1 TO N
+90 IF N - INT(N/I) * I = 0 THEN 110
+100 GOTO 120
+110 LET T = T + 1
+120 NEXT I
+130 IF N - INT(N/T) * T = 0 THEN 160
+140 GOTO 50
+150 STOP
+160 LET M = M + 1
+170 PRINT N;
+180 GOTO 140
+190 END