用户:Enrique Pérez Herrero/SquarefreeKernel
方形核
琐碎公式(最琐碎的第一个):
-
, ( 幂等性 )
-
,其中 是 克罗内克三角洲
-
,(参见。 A048250型 )
哪里 是 Dedekind psi功能 (参见。 A001615号 ) 因此 和
-
,(参见。 A048250型 )
-
,或
-
,或
哪里
-
, ( 素数阶乘 属于 )
-
, ( 复合的 属于 )
Mathematica代码:
rad[n_]:=倍@@(FactorInteger[n][[All,1]]); A007947号 [n]:=弧度[n]; 集合属性[{rad, A007947号 },可列出]; rad::usage=“rad[n]:最大无平方数除以n(n的无平方核)。”; A007947号 ::usage=“ A007947号 [n] :最大无平方数除以n(n的无平方核)。 ";