cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A292739 Numbers in which 9 outnumbers all other digits together.

Original entry on oeis.org

9, 99, 199, 299, 399, 499, 599, 699, 799, 899, 909, 919, 929, 939, 949, 959, 969, 979, 989, 990, 991, 992, 993, 994, 995, 996, 997, 998, 999, 1999, 2999, 3999, 4999, 5999, 6999, 7999, 8999, 9099, 9199, 9299, 9399, 9499, 9599, 9699, 9799, 9899, 9909, 9919, 9929, 9939, 9949, 9959, 9969, 9979, 9989, 9990, 9991, 9992, 9993, 9994, 9995, 9996, 9997, 9998, 9999
Offset: 1

Views

Author

Halfdan Skjerning, Sep 25 2017

Keywords

Comments

Also numbers whose median of the digits is equal to 9. - Stefano Spezia, Oct 04 2023

Examples

			909 has more 9's than any other digit, whereas both 9009 and 9019 have as many other digits as 9's.
		

Crossrefs

Subset of A292449.
Numbers where n outnumbers any other digit: A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458.
Numbers in which n outnumbers all other digits together: A292730, A292731, A292732, A292733, A292734, A292735, A292736, A292738.

Programs

  • Mathematica
    Select[Range[0, 10^4], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 9] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 25 2017 *)
    Select[Range[10000],2*DigitCount[#,10, 9]>IntegerLength[#]&] (* Harvey P. Dale, Aug 04 2019 *)