|
%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
|
