OFFSET
1,1
COMMENTS
Subset of A292452.
EXAMPLE
202 has more 2's than any other digit, whereas both 2002 and 2012 have as many other digits as 2's.
MATHEMATICA
Select[Range[0, 3000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 2] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)
PROG
(Python)
def ok(n):
s=str(n); return s.count('2') > sum([0]+[s.count(d) for d in s if d!='2'])
print([m for m in range(2923) if ok(m)]) # Michael S. Branicky, Feb 22 2021
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Halfdan Skjerning, Sep 22 2017
STATUS
approved