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,3

Links

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

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 *)

Crossrefs

Cf. A023798 - A023810.

Sequence in context: A037918 A043091 A031943 * A320340 A350838 A364347

Adjacent sequences: A023797 A023798 A023799 * A023801 A023802 A023803

Keyword

nonn,base,fini,full,easy

Author

Olivier Gérard

Status

approved