|
Search: id:A135599
|
|
|
| A135599 |
|
Seven-tone substitution on a Fano projective plane graph as used in A120714; ( for use in making church tone A,B,C,D,E,F,G music). |
|
+0
1
|
|
| 1, 3, 4, 6, 7, 1, 2, 4, 5, 7, 1, 2, 3, 4, 5, 6, 1, 3, 4, 6, 7, 2, 3, 5, 6, 7, 1, 2, 3, 4, 5, 6, 1, 3, 4, 6, 7, 2, 4, 7, 4, 6, 7, 1, 2, 4, 5, 7, 1, 2, 3, 4, 5, 6, 2, 6, 7, 1, 3, 4, 6, 7, 2, 3, 5, 6, 7, 4, 6, 7, 1, 2, 3, 4, 5, 6, 2, 6, 7, 1, 3, 4, 6, 7, 2, 4, 7, 2, 3, 5, 6, 7, 4, 6, 7, 1, 2, 4, 5, 7, 1, 3, 4, 6, 7
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Idea inspired by a post in yahoo egroup fractals by "Dahlia Lahla" astro_girl_690(AT)yahoo.ca
In Mathematica you can transfer this to a 12-tone midi scale as: to letters
b = a /. 1 -> "a" /. 2 -> "b" /. 3 -> "c" /. 4 -> "d" /. 5 -> "e" /. 6 -> "f" /. 7 -> "g"
back to numbers on a 12 tone scale:
c = b /. "a" -> 1 /. "b" -> 3 /. "c" -> 4 /. "d" -> 6 /. "e" -> 8 /. "f" -> 9 /. "g" -> 11
|
|
LINKS
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 26 2008, Table of n, a(n) for n = 1..314
|
|
FORMULA
|
1-> 2,6,7 2-> 1,3,4,6,7 3-> 2,4,7 4-> 2,3,5,6,7 5-> 4,6,7 6-> 1,2,4,5,7 7-> 1,2,3,4,5,6
|
|
MATHEMATICA
|
Clear[s] s[1] = {2, 6, 7}; s[2] = {1, 3, 4, 6, 7}; s[3] = {2, 4, 7}; s[4] = {2, 3, 5, 6, 7}; s[5] = {4, 6, 7}; s[6] = {1, 2, 4, 5, 7}; s[7] = {1, 2, 3, 4, 5, 6}; t[a_] := Flatten[s /@ a]; p[0] = s[1]; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; a = p[3]
|
|
CROSSREFS
|
Cf. A120714.
Sequence in context: A065967 A117986 A070737 this_sequence A167161 A129000 A078923
Adjacent sequences: A135596 A135597 A135598 this_sequence A135600 A135601 A135602
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 26 2008
|
|
|
Search completed in 0.002 seconds
|
