OFFSET
1,1
MATHEMATICA
Select[Range[120], ContainsAny[IntegerDigits[#], {4, 6, 8, 9}]&] (* Harvey P. Dale, Sep 06 2018 *)
CROSSREFS
KEYWORD
base,nonn,easy
AUTHOR
Rick L. Shepherd, May 06 2006
STATUS
approved