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,1

Links

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

Example

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

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}]]<DigitCount[#, 10, 7]&] (* Harvey P. Dale, Oct 07 2023 *)

Prog

(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

Crossrefs

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

Sequence in context: A059195 A139264 A045642 * A292737 A352995 A213261

Adjacent sequences: A292454 A292455 A292456 * A292458 A292459 A292460

Keyword

nonn,base

Author

Halfdan Skjerning, Sep 18 2017

Status

approved