This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A292458 #16 Apr 06 2020 18:23:58 %S A292458 8,88,188,288,388,488,588,688,788,808,818,828,838,848,858,868,878,880, %T A292458 881,882,883,884,885,886,887,888,889,898,988,1088,1288,1388,1488,1588, %U A292458 1688,1788,1808,1828,1838,1848,1858,1868,1878,1880,1882,1883,1884,1885,1886,1887,1888 %N A292458 Numbers where 8 outnumbers any other digit. %e A292458 808 has more 8's than any other digit, whereas 8008 has as many 0's as 8's. %t A292458 Select[Range[0, 2000], Max@ #1 < First@ #2 & @@ TakeDrop[RotateLeft[#, 8] &@ DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 18 2017 *) %o A292458 (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 %Y A292458 Cf. A292449, A292450, A292451, A292452, A292453, A292454, A292455, A292456, A292457. %K A292458 nonn,base %O A292458 1,1 %A A292458 _Halfdan Skjerning_, Sep 18 2017