|
PRINT "The tau functions for the first 100 positive integers are:"
|
|
PRINT
|
|
|
|
FOR N = 1 TO 100
|
|
IF N < 3 THEN
|
|
LET T = N
|
|
ELSE
|
|
LET T = 2
|
|
FOR A = 2 TO INT((N+1)/2)
|
|
IF REMAINDER (N, A) = 0 THEN LET T = T + 1
|
|
NEXT A
|
|
END IF
|
|
PRINT " "; T;
|
|
IF REMAINDER (N, 10) = 0 THEN PRINT
|
|
NEXT N
|
|
END
|