%I A133441
%S A133441 2,3,6,8,2,3,5,7,2,4,6,7,2,4,5,8,2,3,6,8,2,3,5,7,1,3,5,8,1,3,6,7,2,3,6,
%T A133441 8,1,4,6,8,2,4,6,7,1,3,6,7,2,3,6,8,1,4,6,8,1,3,5,8,2,4,5,8,1,4,5,7,1,4,
%U A133441 6,8,1,3,5,8,1,3,6,7,1,4,5,7,1,4,6,8,2,4,6,7,2,4,5,8,1,4,5,7,2,3,5,7,1
%N A133441 A geometrical graph substitution of a tess-tetrahedron embedded in a 
               cube as an eight "tone" all naturals music such that the connections 
               can be cut to isolate the [some words were lost here].
%F A133441 p=1 such that: 1 -> {p*2, 3, 6, 8} 2 -> {p, 4, 5, 7} 3 -> {1, p*4, 6, 
               8} 4 -> {2, p*3, 5, 7} 5 -> {2, 4, p*6, 7} 6 -> {1, 3, p*5, 8} 7 
               -> {2, 4, 5, p*8} 8 -> {1, 3, 6, p*7}
%t A133441 Clear[s]; s[1] = {2, 3, 6, 8}; s[2] = {1, 4, 5, 7}; s[3] = {1, 4, 6, 
               8}; s[4] = {2, 3, 5, 7}; s[5] = {2, 4, 6, 7}; s[6] = {1, 3, 5, 8}; 
               s[7] = {2, 4, 5, 8}; s[8] = {1, 3, 6, 7}; t[a_] := Flatten[s /@ a]; 
               p[0] = {1, 2}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; p[3]
%Y A133441 Sequence in context: A070301 A065536 A088414 this_sequence A086254 A140266 
               A140265
%Y A133441 Adjacent sequences: A133438 A133439 A133440 this_sequence A133442 A133443 
               A133444
%K A133441 nonn,uned,obsc
%O A133441 1,1
%A A133441 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 26 2007