Zerofree

Author

Eric W. Weisstein
March 6, 2003

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

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

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

Code

ZerofreeQ[n_Integer?Positive]:=DigitCount[n,10,0]==0

Enumaration

Select[Range[25],ZerofreeQ]