A292734 Numbers in which 4 outnumbers all other digits together.

4, 44, 144, 244, 344, 404, 414, 424, 434, 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 454, 464, 474, 484, 494, 544, 644, 744, 844, 944, 1444, 2444, 3444, 4044, 4144, 4244, 4344, 4404, 4414, 4424, 4434, 4440, 4441, 4442, 4443, 4444, 4445, 4446, 4447, 4448, 4449, 4454, 4464, 4474, 4484, 4494, 4544, 4644, 4744

Offset: 1

Author

Halfdan Skjerning, Sep 22 2017

Keywords

• nonn
• base
• easy

Comments

Subset of A292454.

Examples

			404 has more 4's than any other digit, whereas both 4004 and 4014 have as many other digits as 4's.
		

Crossrefs

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

Programs

Mathematica

Select[Range[0, 4500], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 4] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *)
Select[Range[5000],DigitCount[#,10,4]>IntegerLength[#]/2&] (* Harvey P. Dale, Nov 19 2019 *)