29 lines
602 B
Plaintext
29 lines
602 B
Plaintext
DIM m(1000)
|
|
LET m(1) = 1
|
|
FOR n = 2 TO 1000
|
|
LET m(n) = 1
|
|
FOR k = 2 TO n
|
|
LET m(n) = m(n)-m(INT(n/k))
|
|
NEXT k
|
|
NEXT n
|
|
PRINT "First 99 Mertens numbers:"
|
|
PRINT " ";
|
|
FOR n = 1 TO 99
|
|
PRINT " ";
|
|
PRINT USING "##": m(n);
|
|
!IF REMAINDER(ROUND(n),10) = 9 THEN PRINT
|
|
IF MOD(n,10) = 9 THEN PRINT
|
|
NEXT n
|
|
LET numcruza = 0
|
|
LET numeszero = 0
|
|
FOR n = 1 TO 1000
|
|
IF m(n) = 0 THEN
|
|
LET numeszero = numeszero+1
|
|
IF m(n-1) <> 0 THEN LET numcruza = numcruza+1
|
|
END IF
|
|
NEXT n
|
|
PRINT
|
|
PRINT "M(n) is zero"; numeszero; "times."
|
|
PRINT "M(n) crosses zero"; numcruza; "times."
|
|
END
|