如何确定理性是免费的？

Question

我们知道如果$μ（n）= 0 $那么整数n至少有一个具有多重性的因子。

现在我们如何确定在理性（m / n）> 1的分解中，素数因子是否小于（-1）？例如

m=2*3*5*7*11;

n=2^2*3^3*5;

m/n=2^(-1)*3^(-2)*7*11

f(m/n)=0 (*for example*)

在Mathematica中是否有类似于Moebius函数μ的函数为我做这个工作？ 我想我可以编写代码，但我需要在Mathematica中定义一个函数吗？

感谢

Answer 1

我想我找到了， 它应该是

f[x_]:=If[SquareFreeQ[x]==True,1,0]