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