Dedekind Function

Author

Eric W. Weisstein
February 17, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/NumberTheoreticFunctions/DedekindFunction.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/DedekindFunction.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Table

Product[(1+1/Prime[k])^(1-KroneckerDelta[GCD[n,Prime[k]]-1]),{k,n}]

Table[n*Product[(1+1/Prime[k])^(1-KroneckerDelta[GCD[n,Prime[k]]-1]),{k,n}],{n,20}]

Table[n Times@@((1+(1/(#)))&/@DistinctPrimeFactors[n]),{n,20}]

((1+(1/(#)))&/@DistinctPrimeFactors[1])

Times@@{}