A292458 Numbers where 8 outnumbers any other digit.

8, 88, 188, 288, 388, 488, 588, 688, 788, 808, 818, 828, 838, 848, 858, 868, 878, 880, 881, 882, 883, 884, 885, 886, 887, 888, 889, 898, 988, 1088, 1288, 1388, 1488, 1588, 1688, 1788, 1808, 1828, 1838, 1848, 1858, 1868, 1878, 1880, 1882, 1883, 1884, 1885, 1886, 1887, 1888

Offset

1,1

Links

Table of n, a(n) for n=1..51.

Example

808 has more 8's than any other digit, whereas 8008 has as many 0's as 8's.

Mathematica

Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 8] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 18 2017 *)

Prog

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

Crossrefs

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

Sequence in context: A366233 A248471 A284069 * A292738 A035133 A045643

Adjacent sequences: A292455 A292456 A292457 * A292459 A292460 A292461

Keyword

nonn,base

Author

Halfdan Skjerning, Sep 18 2017

Status

approved