(phixonline)-->
with javascript_semantics
function Moebius(integer n)
if n=1 then return 1 end if
sequence f = prime_factors(n,true)
for i=2 to length(f) do
if f[i] = f[i-1] then return 0 end if
end for
return iff(odd(length(f))?-1:+1)
end function
sequence s = {" ."}
for i=1 to 199 do s = append(s,sprintf("%3d",Moebius(i))) end for
puts(1,join_by(s,1,20," "))