|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|