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,2

Links

Table of n, a(n) for n=1..41.

Example

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

Mathematica

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

Crossrefs

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

Sequence in context: A185121 A133835 A326108 * A292731 A225534 A245475

Adjacent sequences: A292448 A292449 A292450 * A292452 A292453 A292454

Keyword

nonn,base,easy

Author

Halfdan Skjerning, Sep 16 2017

Status

approved