A292451 - OEIS

%I #20 Dec 09 2020 16:01:54

%S 1,11,101,110,111,112,113,114,115,116,117,118,119,121,131,141,151,161,

%T 171,181,191,211,311,411,511,611,711,811,911,1011,1012,1013,1014,1015,

%U 1016,1017,1018,1019,1021,1031,1041

%N Numbers where 1 outnumbers any other digit.

%e 101 has more 1's than any other digit, whereas 1001 has as many 0's as 1's.

%t Select[Range[0, 1200], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 16 2017 *)

%Y Cf. A292449, A292450, A292452, A292453, A292454, A292455, A292456, A292457, A292458.

%K nonn,base,easy

%O 1,2

%A _Halfdan Skjerning_, Sep 16 2017