SQUAREFREE KERNEL
Trivial Formulas (most trivial first):
- , (idempotence)
- , where is the Kronecker delta
-
-
-
-
- , (Cf. A048250)
where is Dedekind psi function (Cf. A001615)
and thus
and
- , (Cf. A048250)
- , or
- , or
where
- , (primorial of )
- , (compositorial of )
Mathematica Code:
rad[n_]:=Times@@(FactorInteger[n][[All,1]]);
A007947[n_]:=rad[n];
SetAttributes[{rad,A007947},Listable];
rad::usage="rad[n]: Largest squarefree number dividing n (the squarefree kernel of n).";
A007947::usage="A007947[n]: Largest squarefree number dividing n (the squarefree kernel of n).";
Links: