%I #25 Jun 25 2022 22:10:47
%S 1,2,3,4,5,6,7,8,9,11,22,33,44,55,66,77,88,99,100,101,110,111,112,113,
%T 114,115,116,117,118,119,121,122,131,133,141,144,151,155,161,166,171,
%U 177,181,188,191,199,200,202,211,212,220,221,222,223,224,225,226,227,228,229,232
%N Numbers in which more than half of the digits are the same.
%C Same as A044959 for terms <= 1000, and then differing at A044959(272) = 1001 which is not a term here (the next instead a(272) = 1011).
%H Zhining Yang, <a href="/A353181/b353181.txt">Table of n, a(n) for n = 1..30000</a>
%e 1211 is a term: it has 4 digits, 3 of which are 1's, and 3/4 > 1/2.
%e 1212 is not a term: it has 4 digits, no one of which appears more than twice.
%t Select[Range[300], Max[DigitCount[#]] > IntegerLength[#]/2 &]
%o (Python)
%o def ok(k):
%o t=str(k)
%o return(max(t.count(str(i)) for i in range(10))>(len(t)//2))
%o print([n for n in range(1, 201) if ok(n)])
%Y Cf. A109303, A044959.
%K nonn,base,easy
%O 1,2
%A _Zhining Yang_, Apr 29 2022
|