login
Numbers where 2 outnumbers any other digit.
19

%I #25 Feb 22 2021 09:14:03

%S 2,22,122,202,212,220,221,222,223,224,225,226,227,228,229,232,242,252,

%T 262,272,282,292,322,422,522,622,722,822,922,1022,1202,1220,1222,1223,

%U 1224,1225,1226,1227,1228,1229,1232,1242,1252,1262,1272,1282,1292,1322,1422

%N Numbers where 2 outnumbers any other digit.

%e 202 has more 2's than any other digit, whereas 2002 has as many 0's as 2's.

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

%o (Python)

%o def ok(n):

%o s=str(n); return s.count('2') > max([0]+[s.count(d) for d in s if d!='2'])

%o print([m for m in range(1500) if ok(m)]) # _Michael S. Branicky_, Feb 22 2021

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

%K nonn,base,easy

%O 1,1

%A _Halfdan Skjerning_, Sep 16 2017