login
A305701
Nonnegative integers whose decimal digits span an initial interval of {0,...,9}.
4
0, 10, 100, 101, 102, 110, 120, 201, 210, 1000, 1001, 1002, 1010, 1011, 1012, 1020, 1021, 1022, 1023, 1032, 1100, 1101, 1102, 1110, 1120, 1200, 1201, 1202, 1203, 1210, 1220, 1230, 1302, 1320, 2001, 2010, 2011, 2012, 2013, 2021, 2031, 2100, 2101, 2102, 2103
OFFSET
1,2
LINKS
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
KEYWORD
nonn,base
AUTHOR
Gus Wiseman, Jun 08 2018
STATUS
approved