20 lines
340 B
Plaintext
20 lines
340 B
Plaintext
100 cls
|
|
110 print "The first 100 tau numbers are:"
|
|
120 n = 0
|
|
130 num = 0
|
|
140 limit = 100
|
|
150 while num < limit
|
|
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
|
|
220 num = num+1
|
|
230 if num mod 10 = 1 then print
|
|
240 print n,
|
|
250 endif
|
|
260 wend
|
|
270 print
|
|
280 end
|