Thue Sequence

Author

Eric W. Weisstein
February 9, 2011

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/ThueSequence.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/ThueSequence.html.

©2011 Wolfram Research, Inc. except for portions noted otherwise

Recurrence Plot

l=Nest[Flatten[#/.{0->{1,1,1},1->{1,1,0}}]&,{0},10];

V6

ArrayPlot[Mod[Table[l[[x]]-l[[y]],{x,128},{y,128}],2],PixelConstrained->True]