OFFSET
1,1
COMMENTS
Also numbers whose median of the digits is equal to 9. - Stefano Spezia, Oct 04 2023
EXAMPLE
909 has more 9's than any other digit, whereas both 9009 and 9019 have as many other digits as 9's.
MATHEMATICA
Select[Range[0, 10^4], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 9] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 25 2017 *)
Select[Range[10000], 2*DigitCount[#, 10, 9]>IntegerLength[#]&] (* Harvey P. Dale, Aug 04 2019 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Halfdan Skjerning, Sep 25 2017
STATUS
approved