Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,28 +0,0 @@
|
|||
# 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
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue