A043091 Every string of 2 consecutive base 5 digits contains exactly 2 distinct numbers.
0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 26, 27, 28, 29, 35, 36, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 51, 52, 53, 54, 55, 57, 58, 59, 65, 66, 67, 69, 70, 71, 72, 73, 76, 77, 78, 79, 80, 82, 83, 84, 85, 86
Offset: 0
Programs
-
Mathematica
Select[Range[0,100],FreeQ[Differences[IntegerDigits[#,5]],0]&] (* Harvey P. Dale, Apr 04 2015 *)
Formula
A031943 UNION {0}. [From R. J. Mathar, Oct 20 2008]