OFFSET
1,1
EXAMPLE
303 has more 3's than any other digit, whereas 3003 has as many 0's as 3's.
MATHEMATICA
Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)
n3oQ[n_]:=Module[{dc=DigitCount[n]}, Max[dc]==dc[[3]]&&Count[dc, dc[[3]]] == 1]; Select[Range[3000], n3oQ] (* Harvey P. Dale, Oct 07 2018 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Halfdan Skjerning, Sep 16 2017
EXTENSIONS
Corrected by Harvey P. Dale, Oct 07 2018
STATUS
approved