Data commit

Task/Mertens-function/True-BASIC/mertens-function.basic

@@ -0,0 +1,28 @@
+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