A292457 Numbers where 7 outnumbers any other digit.

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, 1077, 1277, 1377, 1477, 1577, 1677, 1707, 1727, 1737, 1747, 1757, 1767, 1770, 1772, 1773, 1774, 1775, 1776, 1777

Offset: 1

Author

Halfdan Skjerning, Sep 18 2017

Keywords

• nonn
• base

Examples

			707 has more 7's than any other digit, whereas 7007 has as many 0's as 7's.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292458.

Programs

Mathematica

Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 7] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 18 2017 *)
Select[Range[2000],Max[Drop[DigitCount[#],{7}]]Harvey P. Dale, Oct 07 2023 *)

PARI

isok(n) = {d = digits(n); v = vector(10, n, #select(x->x==(n-1), d)); for (k=1, #v, if ((k != 8) && (v[k] >= v[8]), return(0));); return(1);} \\ Michel Marcus, Sep 21 2017