|
Search: id:A133269
|
|
|
| A133269 |
|
Algorithmic substitution of Major 7th chords: 12 chords of 4 notes each as being graph like. |
|
+0
4
|
|
| 1, 5, 8, 12, 5, 9, 12, 4, 8, 12, 3, 7, 12, 4, 7, 11, 5, 9, 12, 4, 9, 1, 4, 8, 12, 4, 7, 11, 4, 8, 11, 3, 8, 12, 3, 7, 12, 4, 7, 11, 3, 7, 10, 2, 7, 11, 2, 6, 12, 4, 7, 11, 4, 8, 11, 3, 7, 11, 2, 6, 11, 3, 6, 10, 5, 9, 12, 4, 9, 1, 4, 8, 12, 4, 7, 11, 4, 8, 11, 3, 9, 1, 4, 8, 1, 5, 8, 12, 4, 8, 11, 3, 8
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
I am using chords taken from the first pages of Mel Bey's manuscript book.
|
|
REFERENCES
|
Mel Bey, http://www.smu.edu/totw/chords.htm
|
|
FORMULA
|
1->{1, 5, 8, 12}, 2-> {2, 6, 9, 1}, 3-> {3, 7, 10, 2}, 4-> {4, 8, 11, 3}, 5-> {5, 9, 12, 4}, 6-> {6, 10, 1, 5}, 7-> {7, 11, 2, 6}, 8-> {8, 12, 3, 7}, 9-> {9, 1, 4, 8}, 10-> {10, 2, 5, 9}, 11-> {11, 3, 6, 10}, 12-> {12, 4, 7, 11}}
|
|
MATHEMATICA
|
Clear[s, p] s[i_] = {i, If[i + 4 > 12, i - 8, i + 4], If[i + 7 > 12, i - 5, i + 7], If[i + 11 > 12, i - 1, i + 11]}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; p[4]
|
|
CROSSREFS
|
Adjacent sequences: A133266 A133267 A133268 this_sequence A133270 A133271 A133272
Sequence in context: A056955 A023381 A133522 this_sequence A076635 A116602 A079896
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 16 2007
|
|
|
Search completed in 0.002 seconds
|
