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
Examples
808 has more 8's than any other digit, whereas 8008 has as many 0's as 8's.
Programs
-
Mathematica
Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 8] &@ DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 18 2017 *)
-
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