如何確定一個理性是平方免費的？

我們知道，如果$μ（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中定義的函數？

感謝

2013-02-22 asd

我想我找到了，應該

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

2013-02-22 17:27:43 asd

如果你只是想要一個0/1的答案，你可以只是做'布爾@ SquareFreeQ @ x'而不是' If' – abcd 2013-02-24 17:12:44

回答