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

Author

Gus Wiseman, Jun 08 2018

Keywords

• nonn
• base

Links

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

Crossrefs

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

Programs

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[#]]]&]

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