15 lines
289 B
Plaintext
15 lines
289 B
Plaintext
100 CLS
|
|
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 MOD M = 0 THEN TAU = TAU+1
|
|
200 NEXT M
|
|
210 IF N MOD TAU = 0 THEN NUM = NUM+1 : PRINT N;
|
|
220 GOTO 150
|
|
230 END
|