A292735 Numbers in which 5 outnumbers all other digits together.
5, 55, 155, 255, 355, 455, 505, 515, 525, 535, 545, 550, 551, 552, 553, 554, 555, 556, 557, 558, 559, 565, 575, 585, 595, 655, 755, 855, 955, 1555, 2555, 3555, 4555, 5055, 5155, 5255, 5355, 5455, 5505, 5515, 5525, 5535, 5545, 5550, 5551, 5552, 5553, 5554, 5555, 5556, 5557, 5558, 5559, 5565, 5575, 5585, 5595, 5655
Offset: 1
Examples
505 has more 5's than any other digit, whereas both 5005 and 5015 have as many other digits as 5's.
Crossrefs
Programs
-
Mathematica
Select[Range[0, 6000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 5] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 22 2017 *) Select[Range[6000],DigitCount[#,10,5]>(IntegerLength[#]-DigitCount[#,10,5])&] (* Harvey P. Dale, May 08 2022 *)
Comments