A292450 Numbers where 0 outnumbers any other digit.
0, 100, 200, 300, 400, 500, 600, 700, 800, 900, 1000, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1020, 1030, 1040, 1050, 1060, 1070, 1080, 1090, 1200, 1300, 1400, 1500, 1600, 1700, 1800, 1900, 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
Offset: 1
Examples
100 has more 0's than any other digit, whereas 1001 has as many 0's as 1's.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
filter:= proc(n) local L,t,i; L:= convert(n,base,10); t:= numboccur(0,L); andmap(i -> numboccur(i,L) < t, [$1..9]) end proc: select(filter, [$0..10000]); # Robert Israel, Dec 22 2023
-
Mathematica
Select[Range[0, 3000], Max@ #1 < First@ #2 & @@ TakeDrop[DigitCount@ #, 9] &] (* Michael De Vlieger, Sep 16 2017 *)
Extensions
a(26) = 1080 inserted and more terms from Georg Fischer, Dec 22 2022