OFFSET
1,1
EXAMPLE
808 has more 8's than any other digit, whereas both 8008 and 8018 have as many other digits as 8's.
MATHEMATICA
Select[Range[0, 9000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 8] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 25 2017 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Halfdan Skjerning, Sep 25 2017
STATUS
approved