A305701 Nonnegative integers whose decimal digits span an initial interval of {0,...,9}.

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

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

Cf. A000670, A030299, A050289, A144688, A240763, A305712, A305714, A305715.

Sequence in context: A341692 A323708 A293870 * A107411 A297065 A019513

Adjacent sequences: A305698 A305699 A305700 * A305702 A305703 A305704

Keyword

nonn,base

Author

Gus Wiseman, Jun 08 2018

Status

approved