RosettaCodeData/Task/Tau-function/Bc/tau-function.bc
2023-07-01 13:44:08 -04:00

9 lines
221 B
Text

define t(n) {
auto a, d, p
for (d = 1; n % 2 == 0; n /= 2) d += 1
for (p = 3; p * p <= n; p += 2) for (a = d; n % p == 0; n /= p) d += a
if (n != 1) d += d
return(d)
}
for (i = 1; i <= 100; ++i) t(i)