A292453 Numbers where 3 outnumbers any other digit.

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

Author

Halfdan Skjerning, Sep 16 2017

Keywords

• nonn
• base
• easy

Examples

			303 has more 3's than any other digit, whereas 3003 has as many 0's as 3's.
		

Crossrefs

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

Programs

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 *)

Extensions

Corrected by Harvey P. Dale, Oct 07 2018