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.

A292737 Numbers in which 7 outnumbers all other digits together.

Original entry on oeis.org

7, 77, 177, 277, 377, 477, 577, 677, 707, 717, 727, 737, 747, 757, 767, 770, 771, 772, 773, 774, 775, 776, 777, 778, 779, 787, 797, 877, 977, 1777, 2777, 3777, 4777, 5777, 6777, 7077, 7177, 7277, 7377, 7477, 7577, 7677, 7707, 7717, 7727, 7737, 7747, 7757, 7767, 7770, 7771, 7772, 7773, 7774, 7775, 7776, 7777, 7778
Offset: 1

Views

Author

Halfdan Skjerning, Sep 25 2017

Keywords

Examples

			707 has more 7's than any other digit, whereas both 7007 and 7017 have as many other digits as 7's.
		

Crossrefs

Subset of A292457.
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, A292739.

Programs

  • Mathematica
    Select[Range[0, 8000], Total@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 7] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 25 2017 *)