A292451 Numbers where 1 outnumbers any other digit.
1, 11, 101, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 121, 131, 141, 151, 161, 171, 181, 191, 211, 311, 411, 511, 611, 711, 811, 911, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1021, 1031, 1041
Offset: 1
Examples
101 has more 1's than any other digit, whereas 1001 has as many 0's as 1's.
Programs
-
Mathematica
Select[Range[0, 1200], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)