visualShuffleAndCodingToFourLetters

visualShuffleAndCodingToFourLetters[13, 778]

( ( a ) ( b ) ( b ) ( a ... a d b …

(* IMS 2003 code *)thueSequence = Nest[ReplaceAll[#, {"a" {"a&q ... quot;, "a"} "c", {"b", "b"} "d"}

(* IMS 2003 *)StringJoin[β[#]] &/@(Range[10] - 1)//TableForm

Created by Mathematica  (February 18, 2004)