A292452 Numbers where 2 outnumbers any other digit.

2, 22, 122, 202, 212, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 232, 242, 252, 262, 272, 282, 292, 322, 422, 522, 622, 722, 822, 922, 1022, 1202, 1220, 1222, 1223, 1224, 1225, 1226, 1227, 1228, 1229, 1232, 1242, 1252, 1262, 1272, 1282, 1292, 1322, 1422

Offset

1,1

Links

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

Example

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

Mathematica

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

Prog

(Python)
def ok(n):
  s=str(n); return s.count('2') > max([0]+[s.count(d) for d in s if d!='2'])
print([m for m in range(1500) if ok(m)]) # Michael S. Branicky, Feb 22 2021

Crossrefs

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

Sequence in context: A216801 A083833 A221697 * A292732 A206418 A255866

Adjacent sequences: A292449 A292450 A292451 * A292453 A292454 A292455

Keyword

nonn,base,easy

Author

Halfdan Skjerning, Sep 16 2017

Status

approved