|
| |
|
|
A133270
|
|
Groups of 4 numbers describing a sequence of Minor 7th chords by assigning numbers 1 to 12 to an octave.
|
|
3
| |
|
|
1, 4, 8, 11, 4, 7, 11, 2, 8, 11, 3, 6, 11, 4, 6, 9, 4, 7, 11, 2, 7, 10, 2, 5, 11, 4, 6, 9, 2, 5, 9, 12, 8, 11, 3, 6, 11, 4, 6, 9, 3, 6, 10, 1, 6, 9, 1, 4, 11, 4, 6, 9, 4, 7, 11, 2, 6, 9, 1, 4, 9, 12, 4, 7, 4, 7, 11, 2, 7, 10, 2, 5, 11, 4, 6, 9, 2, 5, 9, 12, 7, 10, 2, 5, 10, 3, 5, 8, 2, 5, 9, 12, 5, 8
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| The rules of building a sequence of blocks of 4 numbers by
reading the partial sequence from the left are as in A133269,
but here the interval assignments are for a minor 7th
at the 12 base tones, explicitly: 1->{1, 4, 8, 11}, 2-> {2, 5, 9, 12}, 3-> {3, 6, 10, 1},
4-> {4, 7, 11, 2}, 5-> {5, 8, 12, 3}, 6-> {6, 9, 1, 4}, 7-> {7, 10, 2, 5}, 8-> {8, 11, 3, 6},
9-> {9, 12, 4, 7}, 10-> {10, 3, 5, 8}, 11-> {11, 4, 6, 9}, 12-> {12, 5, 7, 10}.
|
|
|
LINKS
| Mel Bey, manuscript book
|
|
|
MATHEMATICA
| Clear[s, p] s[i_] = {i, If[i + 3 > 12, i - 7, i + 3], If[i + 7 > 12, i - 5, i + 7], If[i + 10 > 12, i - 2, i + 10]}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; p[4]
|
|
|
CROSSREFS
| Sequence in context: A136861 A109445 A131803 * A131517 A076689 A161867
Adjacent sequences: A133267 A133268 A133269 * A133271 A133272 A133273
|
|
|
KEYWORD
| nonn,less,easy
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 16 2007
|
|
|
EXTENSIONS
| Comments inserted for clarification - The Assoc. Eds. of the OEIS, Aug 29 2010
|
| |
|
|
