29 lines
497 B
Plaintext
29 lines
497 B
Plaintext
# 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
|
|
}
|