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 A292450 #25 Dec 22 2023 15:25:42 %S A292450 0,100,200,300,400,500,600,700,800,900,1000,1002,1003,1004,1005,1006, %T A292450 1007,1008,1009,1020,1030,1040,1050,1060,1070,1080,1090,1200,1300, %U A292450 1400,1500,1600,1700,1800,1900,2000,2001,2003,2004,2005,2006,2007,2008,2009,2010 %N A292450 Numbers where 0 outnumbers any other digit. %H A292450 Robert Israel, <a href="/A292450/b292450.txt">Table of n, a(n) for n = 1..10000</a> %e A292450 100 has more 0's than any other digit, whereas 1001 has as many 0's as 1's. %p A292450 filter:= proc(n) local L,t,i; %p A292450 L:= convert(n,base,10); %p A292450 t:= numboccur(0,L); %p A292450 andmap(i -> numboccur(i,L) < t, [$1..9]) %p A292450 end proc: %p A292450 select(filter, [$0..10000]); # _Robert Israel_, Dec 22 2023 %t A292450 Select[Range[0, 3000], Max@ #1 < First@ #2 & @@ TakeDrop[DigitCount@ #, 9] &] (* _Michael De Vlieger_, Sep 16 2017 *) %Y A292450 Cf. A292449, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458. %K A292450 nonn,base,look,easy %O A292450 1,2 %A A292450 _Halfdan Skjerning_, Sep 16 2017 %E A292450 a(26) = 1080 inserted and more terms from _Georg Fischer_, Dec 22 2022