login
A minimal four-symbol substitution with characteristic polynomial x^4-x-1.
0

%I #3 Mar 30 2012 17:34:15

%S 4,2,3,3,1,3,1,1,4,3,1,1,4,1,4,4,2,3,1,1,4,1,4,4,2,1,4,4,2,4,2,3,3,1,

%T 1,4,1,4,4,2,1,4,4,2,4,2,3,1,4,4,2,4,2,3,4,2,3,3,1,3,1,1,4,1,4,4,2,1,

%U 4,4,2,4,2,3,1,4,4,2,4,2,3,4,2,3,3,1,1,4,4,2,4,2,3,4,2,3,3,1,4,2,3,3,1,3,1

%N A minimal four-symbol substitution with characteristic polynomial x^4-x-1.

%C A minimal Pisot like substitution matrix isomer, but in 4 symbols.

%F 1->{3), 2->{4}, 3->{2, 4}, 4->{1}

%t s[1] = {3}; s[2] = {4}; s[3] = {4, 2}; s[4] = {1}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[26]

%K nonn,uned

%O 0,1

%A _Roger L. Bagula_, May 12 2005