OFFSET
1,2
COMMENTS
Note that upon removing commas, strings such as 111 and 1122 are not allowed. That is why 111 is not in the sequence and 99 is not followed by 112. The digit 0 is also not allowed as defined in the name.
MATHEMATICA
a = {{1}}; Do[k = 1; While[Nand[! MemberQ[a, #], Count[Length /@ Split[a[[n - 1]]~Join~#], 2] == 1, ! MemberQ[#, 0]] &@ Set[d, IntegerDigits@ k], k++]; AppendTo[a, d], {n, 2, 74}]; FromDigits /@ a (* Michael De Vlieger, May 22 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Enrique Navarrete, May 21 2017
STATUS
approved
