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
KEYWORD
AUTHOR
Halfdan Skjerning, Sep 16 2017
EXTENSIONS
a(26) = 1080 inserted and more terms from Georg Fischer, Dec 22 2022
STATUS
approved