Erdős-Selfridge Function

Author

Eric W. Weisstein
January 14, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/Erdos-SelfridgeFunction.nb.

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

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

Code

ErdosSelfridge::usage="ErdosSelfridge[k] gives the Erdos-Selfridge function of k."

ErdosSelfridge[k_Integer?Positive]:=Module[{n=k+2},While[LeastPrimeFactor[Binomial[n,k]]<=k,n++];
n]