15 lines
353 B
Plaintext
15 lines
353 B
Plaintext
write("The tau functions for the first 100 positive integers are:");
|
|
for (int N = 1; N <= 100; ++N) {
|
|
int T;
|
|
if (N < 3) {
|
|
T = N;
|
|
} else {
|
|
T = 2;
|
|
for (int A = 2; A <= (N + 1) / 2; ++A) {
|
|
if (N % A == 0) T = T + 1;
|
|
}
|
|
}
|
|
write(format("%3d", T), suffix=none);
|
|
if (N % 10 == 0) write("");
|
|
}
|