19 lines
341 B
Text
19 lines
341 B
Text
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
|