OFFSET
1,1
COMMENTS
Subset of A292455.
EXAMPLE
505 has more 5's than any other digit, whereas both 5005 and 5015 have as many other digits as 5's.
MATHEMATICA
Select[Range[0, 6000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 5] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)
Select[Range[6000], DigitCount[#, 10, 5]>(IntegerLength[#]-DigitCount[#, 10, 5])&] (* Harvey P. Dale, May 08 2022 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Halfdan Skjerning, Sep 22 2017
STATUS
approved