login
A292458
Numbers where 8 outnumbers any other digit.
19
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
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
KEYWORD
nonn,base
AUTHOR
Halfdan Skjerning, Sep 18 2017
STATUS
approved