21 lines
493 B
Plaintext
21 lines
493 B
Plaintext
function mobius( n as uinteger ) as integer
|
|
if n = 1 then return 1
|
|
for d as uinteger = 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
|
|
|
|
dim as string outstr = " . "
|
|
for i as uinteger = 1 to 200
|
|
if mobius(i)>=0 then outstr += " "
|
|
outstr += str(mobius(i))+" "
|
|
if i mod 10 = 9 then
|
|
print outstr
|
|
outstr = ""
|
|
end if
|
|
next i
|