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,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

100 has more 0's than any other digit, whereas 1001 has as many 0's as 1's.

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 *)

Crossrefs

Cf. A292449, A292451, A292452, A292453, A292454, A292455, A292456, A292457, A292458.

Sequence in context: A172178 A036742 A262198 * A044332 A166731 A292730

Adjacent sequences: A292447 A292448 A292449 * A292451 A292452 A292453

Keyword

nonn,base,look,easy

Author

Halfdan Skjerning, Sep 16 2017

Extensions

a(26) = 1080 inserted and more terms from Georg Fischer, Dec 22 2022

Status

approved