17 lines
256 B
Text
17 lines
256 B
Text
func divcnt n .
|
|
tot = 1
|
|
p = 2
|
|
while p <= sqrt n
|
|
cnt = 1
|
|
while n mod p = 0
|
|
cnt += 1
|
|
n /= p
|
|
.
|
|
tot *= cnt
|
|
p += 1
|
|
.
|
|
if n > 1 : tot *= 2
|
|
return tot
|
|
.
|
|
for i to 100 : write divcnt i & " "
|
|
print ""
|