Data update

Task/M-bius-function/PowerShell/m-bius-function.psh

@@ -0,0 +1,28 @@
+# Moebius function
+
+function Moebius([int]$N) {
+  [int]$m = 1
+  if ($N -ne 1) {
+    [int]$f = 2
+    do {
+      if ($N % ($f * $f) -eq 0) {
+        $m = 0
+      } else {
+        if ($N % $f -eq 0) {
+          $m = -$m;
+          $N = [math]::Floor($N / $f)
+        }
+        $f += 1
+      }
+    } while (($f -le $N) -and ($m -ne 0))
+  }
+  return $m
+}
+
+foreach ($t in 0..9) {
+  [string]$row = @()
+  foreach ($u in 1..10) {
+    $row += "{0,2}  " -f $(Moebius(10 * $t + $u))
+  }
+  Write-Output $row
+}