Data commit

Task/Mertens-function/Yabasic/mertens-function-1.basic

@@ -0,0 +1,25 @@
+dim M(1000)
+M(1) = 1
+for n = 2 to 1000
+	M(n) = 1
+	for k = 2 to n
+		M(n) = M(n) - M(int(n/k))
+	next k
+next n
+print "First 99 Mertens numbers:"
+print "    ";
+for n = 1 to 99
+	print M(n) using("###");
+	if mod(n, 10) = 9  print
+next n
+numCruza = 0
+numEsCero = 0
+for n = 1 to 1000
+	if M(n) = 0 then
+		numEsCero = numEsCero + 1
+		if M(n-1) <> 0  numCruza = numCruza + 1
+	end if
+next n
+print
+print "M(n) is zero ", numEsCero, " times."
+print "M(n) crosses zero ", numCruza, " times."

Task/Mertens-function/Yabasic/mertens-function-2.basic

@@ -0,0 +1,34 @@
+#!/bin/bash
+MAX=1000
+
+m[1]=1
+for n in `seq 2 $MAX`
+do
+    m[n]=1
+    for k in `seq 2 $n`
+    do
+        m[n]=$((m[n]-m[n/k]))
+    done
+done
+
+echo 'The first 99 Mertens numbers are:'
+echo -n '   '
+for n in `seq 1 99`
+do
+    printf '%2d ' ${m[n]}
+    test $((n%10)) -eq 9 && echo
+done
+
+zero=0
+cross=0
+for n in `seq 1 $MAX`
+do
+    if [ ${m[n]} -eq 0 ]
+    then
+        ((zero++))
+        test ${m[n-1]} -ne 0 && ((cross++))
+    fi
+done
+
+echo "M(N) is zero $zero times."
+echo "M(N) crosses zero $cross times."