A353181 Numbers in which more than half of the digits are the same.
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 100, 101, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 121, 122, 131, 133, 141, 144, 151, 155, 161, 166, 171, 177, 181, 188, 191, 199, 200, 202, 211, 212, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 232
Offset: 1
Examples
1211 is a term: it has 4 digits, 3 of which are 1's, and 3/4 > 1/2. 1212 is not a term: it has 4 digits, no one of which appears more than twice.
Links
- Zhining Yang, Table of n, a(n) for n = 1..30000
Programs
-
Mathematica
Select[Range[300], Max[DigitCount[#]] > IntegerLength[#]/2 &]
-
Python
def ok(k): t=str(k) return(max(t.count(str(i)) for i in range(10))>(len(t)//2)) print([n for n in range(1, 201) if ok(n)])
Comments