|
Search: id:A133442
|
|
|
| A133442 |
|
A geometrical graph substitution of a tess-tetrahedron embedded in a cube as a eight "tone" all naturals music such that here, the connections can be cut to isolate the tetrahdra. |
|
+0
1
|
|
| 3, 6, 8, 1, 3, 8, 1, 3, 6, 3, 6, 8, 1, 6, 8, 1, 3, 6, 3, 6, 8, 1, 6, 8, 1, 3, 8, 4, 5, 7, 2, 4, 7, 2, 4, 5, 4, 5, 7, 2, 5, 7, 2, 4, 5, 4, 5, 7, 2, 5, 7, 2, 4, 7
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
There is a definite difference in the music that the isolated tetrahedra gives compared to the connected ones.
|
|
FORMULA
|
p=0 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}
|
|
MATHEMATICA
|
Clear[s]; s[1] = {3, 6, 8}; s[2] = {4, 5, 7}; s[3] = {1, 6, 8}; s[4] = {2, 5, 7}; s[5] = {2, 4, 7}; s[6] = {1, 3, 8}; s[7] = {2, 4, 5}; s[8] = {1, 3, 6}; t[a_] := Flatten[s /@ a]; p[0] = {1, 2}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; p[3]
|
|
CROSSREFS
|
Sequence in context: A019121 A067697 A137128 this_sequence A133193 A157032 A011334
Adjacent sequences: A133439 A133440 A133441 this_sequence A133443 A133444 A133445
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 26 2007
|
|
|
Search completed in 0.002 seconds
|
