A023800 Xenodromes: all digits in base 5 are different.

0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 27, 28, 29, 35, 38, 39, 40, 42, 44, 45, 47, 48, 51, 53, 54, 55, 58, 59, 65, 66, 69, 70, 71, 73, 76, 77, 79, 80, 82, 84, 85, 86, 89, 95, 96, 97, 101, 102, 103, 105, 107, 108, 110, 111, 113

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base
• fini
• full
• easy

Links

• Nathaniel Johnston, Table of n, a(n) for n = 1..261 (full sequence)

Crossrefs

Cf. A023798 - A023810.

Programs

Maple

A023800 := proc(n) option remember: local d,j,k,inseq: if(n=1)then return 0:fi: for k from procname(n-1)+1 do d:=convert(k,base,5): inseq:=true: for j from 0 to 4 do if(numboccur(d,j)>=2)then inseq:=false:break: fi: od: if(inseq)then return k: fi: od: end: seq(A023800(n),n=1..66); # Nathaniel Johnston, May 17 2011

Mathematica

Select[Range[0, 3000], Length[b5 = IntegerDigits[#, 5]] == Length[Union[b5]]&] (* Jean-François Alcover, Feb 13 2014 *)
Select[Range[0,120],Max[DigitCount[#,5]]==1&] (* Harvey P. Dale, Sep 22 2016 *)