22 lines
376 B
Plaintext
22 lines
376 B
Plaintext
function mobius(n)
|
|
if n = 1 then return 1
|
|
for d = 2 to int(sqr(n))
|
|
if n mod d = 0 then
|
|
if n mod (d*d) = 0 then return 0
|
|
return -mobius(n/d)
|
|
end if
|
|
next d
|
|
return -1
|
|
end function
|
|
|
|
outstr$ = " . "
|
|
for i = 1 to 200
|
|
if mobius(i) >= 0 then outstr$ += " "
|
|
outstr$ += string(mobius(i)) + " "
|
|
if i mod 10 = 9 then
|
|
print outstr$
|
|
outstr$ = ""
|
|
end if
|
|
next i
|
|
end
|