OFFSET
1,1
COMMENTS
Subset of A292454.
EXAMPLE
404 has more 4's than any other digit, whereas both 4004 and 4014 have as many other digits as 4's.
MATHEMATICA
Select[Range[0, 4500], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 4] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)
Select[Range[5000], DigitCount[#, 10, 4]>IntegerLength[#]/2&] (* Harvey P. Dale, Nov 19 2019 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Halfdan Skjerning, Sep 22 2017
STATUS
approved