login
A292453
Numbers where 3 outnumbers any other digit.
19
3, 33, 133, 233, 303, 313, 323, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 343, 353, 363, 373, 383, 393, 433, 533, 633, 733, 833, 933, 1033, 1233, 1303, 1323, 1330, 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1343, 1353, 1363, 1373, 1383, 1393
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 *)
KEYWORD
nonn,base,easy
AUTHOR
Halfdan Skjerning, Sep 16 2017
EXTENSIONS
Corrected by Harvey P. Dale, Oct 07 2018
STATUS
approved