18 lines
272 B
Text
18 lines
272 B
Text
print "The first 100 tau numbers are:"
|
|
|
|
n = 0
|
|
num = 0
|
|
limit = 100
|
|
while num < limit
|
|
n += 1
|
|
tau = 0
|
|
for m = 1 to n
|
|
if n mod m = 0 then tau += 1
|
|
next m
|
|
if n mod tau = 0 then
|
|
num += 1
|
|
if num mod 10 = 1 then print
|
|
print rjust(string(n), 6);
|
|
end if
|
|
end while
|
|
end
|