A043092 Numbers in which every string of 2 consecutive base 6 digits contains exactly 2 distinct numbers.
0, 1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 37, 38, 39, 40, 41, 48, 49, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 73, 74, 75, 76, 77, 78, 80
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[0,80],FreeQ[Differences[IntegerDigits[#,6]],0]&] (* Harvey P. Dale, Sep 09 2016 *)