19 lines
356 B
Text
19 lines
356 B
Text
print "The first 100 tau numbers are:"
|
|
|
|
n = 0
|
|
num = 0
|
|
limit = 100
|
|
while num < limit
|
|
n = n + 1
|
|
tau = 0
|
|
for m = 1 to n
|
|
if mod(n, m) = 0 then tau = tau + 1 : fi
|
|
next m
|
|
if mod(n, tau) = 0 then
|
|
num = num + 1
|
|
if mod(num, 10) = 1 then print : fi
|
|
print n using "####";
|
|
end if
|
|
wend
|
|
print
|
|
end
|