Data update

Task/M-bius-function/EasyLang/m-bius-function.easy

@@ -0,0 +1,34 @@
+mu_max = 100000
+sqroot = floor sqrt mu_max
+#
+for i to mu_max
+   mu[] &= 1
+.
+for i = 2 to sqroot
+   if mu[i] = 1
+      for j = i step i to mu_max
+         mu[j] *= -i
+      .
+      for j = i * i step i * i to mu_max
+         mu[j] = 0
+      .
+   .
+.
+for i = 2 to mu_max
+   if mu[i] = i
+      mu[i] = 1
+   elif mu[i] = -i
+      mu[i] = -1
+   elif mu[i] < 0
+      mu[i] = 1
+   elif mu[i] > 0
+      mu[i] = -1
+   .
+.
+numfmt 0 3
+for i = 1 to 100
+   write mu[i]
+   if i mod 10 = 0
+      print ""
+   .
+.