OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L;
L:= convert(convert(n, base, 10), set);
L = {$0..max(L)}
end proc:
select(filter, [$0..3000]); # Robert Israel, Jun 10 2018
MATHEMATICA
Select[Range[0, 10000], Union[IntegerDigits[#]]==Range[0, Max[IntegerDigits[#]]]&]
PROG
(PARI) isok(n) = if (n==0, return (1)); my(d=Set(digits(n))); (vecmin(d) == 0) && (vecmax(d) == #d - 1); \\ Michel Marcus, Jul 05 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Gus Wiseman, Jun 08 2018
STATUS
approved