cp's OEIS Frontend

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.

A292458 Numbers where 8 outnumbers any other digit.

This page as a plain text file.
%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