Round Number

Author

Eric W. Weisstein
January 2, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/RoundNumber.nb.

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

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

Initialization

RoundNumberQ[n_Integer]:=Max[First/@FactorInteger[n]]≤Sqrt[n]

Enumeration

Select[Range[1000],RoundNumberQ]