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,1

Comments

Subset of A292453.

Links

Table of n, a(n) for n=1..64.

Example

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

Mathematica

Select[Range[0, 9000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 3] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)

Crossrefs

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

Sequence in context: A239345 A089015 A292453 * A062215 A279885 A132122

Adjacent sequences: A292730 A292731 A292732 * A292734 A292735 A292736

Keyword

nonn,base,easy

Author

Halfdan Skjerning, Sep 22 2017

Extensions

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

Status

approved