login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A105933 An eight-symbol substitution on an hypertetrahedron with two symbol connection per vertex : limited to coverage of the connections : characteristic polynomial:x^8-4*x^&5-4*x^4-8*x^3. 1

%I

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

%T 3,4,1,2,4,7,1,2,4,7,1,8,2,3,3,4,1,8,5,8,1,2,3,2,3,3,4,1,2,4,7,2,3,3,

%U 4,1,2,4,7,3,4,1,2,4,7,1,2,4,7,1,8,2,3,3,4,1,8,5,8,2,3,3,4,1,2,4,7,3,4,1,2

%N An eight-symbol substitution on an hypertetrahedron with two symbol connection per vertex : limited to coverage of the connections : characteristic polynomial:x^8-4*x^&5-4*x^4-8*x^3.

%C This flow can be visualized in 3d by using a cube's vertices as the substitution for the eight points.

%F 1->{2, 3}, 2->{3, 4}, 3->{4, 7}, 4->{1, 8}, 5->{1, 6}, 6->{2, 7}, 7->{5, 8}, 8->{5, 6}

%t s[1] = {2, 3}; s[2] = {3, 4}; s[3] = {1, 2, 4, 7}; s[4] = {1, 8}; s[5] = { 1, 6}; s[6] = {2, 7}; s[7] = {5, 8}; s[8] = {5, 6}; t[a_] := Join[a, Flatten[s/@a]]; p[0]={1};p[1]=t[{1}]; p[n_]:=t[p[n-1]] a=Flatten[Table[p[n], {n, 0, 3}]]

%K nonn,uned

%O 0,3

%A _Roger L. Bagula_, Apr 26 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 16 19:48 EST 2022. Contains 350376 sequences. (Running on oeis4.)