Initial data commit

Task/M-bius-function/BASIC256/m-bius-function.basic

@@ -0,0 +1,21 @@
+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