A292733 Numbers in which 3 outnumbers all other digits together.

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, 1333, 2333, 3033, 3133, 3233, 3303, 3313, 3323, 3330, 3331, 3332, 3333, 3334, 3335, 3336, 3337, 3338, 3339, 3343, 3353, 3363, 3373, 3383, 3393, 3433, 3533, 3633, 3733, 3833, 3933, 4333, 5333, 6333, 7333, 8333

Offset: 1

Author

Halfdan Skjerning, Sep 22 2017

Keywords

• nonn
• base
• easy

Comments

Subset of A292453.

Examples

			303 has more 3's than any other digit, whereas both 3003 and 3013 have as many other digits as 3's.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458, A292730, A292731, A292732, A292734, A292735, A292736, A292737, A292738, A292739.

Programs

Mathematica

Select[Range[0, 9000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)
Select[Range[9000],DigitCount[#,10,3]>IntegerLength[#]/2&] (* Harvey P. Dale, Jun 17 2025 *)

Extensions

a(48) and following corrected by Georg Fischer, Dec 22 2022