OFFSET
1,3
MATHEMATICA
Select[Range[0, 250], Max[DigitCount[#, 4]]==1&] (* Harvey P. Dale, Apr 01 2011 *)
CROSSREFS
KEYWORD
nonn,base,fini,full,easy
AUTHOR
STATUS
approved