1,1

American jazz will be the classical music of the future. This 12 tones divided in to pentatonics is an effort to bridge the gap to a more complex music theory for jazz. It is also a continuation of my geometric 12 tone figures: in this case 5 connections per vertex is like a 5 dimensional graph as : 3 connections->3d 4 connections->4d 5 connections->5d

n->{n+1,n+4,n+6,n+8,n+11}or{n-11,n-8,n-6,n-4,n-1} on the 12 tone circle 1->{2, 5, 7, 9, 12}; 2->{3, 6, 8, 10, 1}; 3->{4, 7, 9, 11, 2}; 4->{5, 8, 10, 12, 3}; 5->{6, 9, 11, 1, 4}; 6->{7, 10, 12, 2, 5}; 7->{8, 11, 1, 3, 6}; 8->{9, 12, 2, 4, 17}; 9->{10, 1, 3, 5, 8}; 10->{11, 2, 4, 6, 9}; 11->{12, 3, 5, 7, 10}; 12->{1, 4, 6, 8, 11};

Clear[s] s[1] = {2, 5, 7, 9, 12}; s[2] = {3, 6, 8, 10, 1}; s[3] = {4, 7, 9, 11, 2}; s[4] = {5, 8, 10, 12, 3}; s[5] = {6, 9, 11, 1, 4}; s[6] = {7, 10, 12, 2, 5}; s[7] = {8, 11, 1, 3, 6}; s[8] = {9, 12, 2, 4, 17}; s[9] = {10, 1, 3, 5, 8}; s[10] = {11, 2, 4, 6, 9}; s[11] = {12, 3, 5, 7, 10}; s[12] = {1, 4, 6, 8, 11}; t[a_] := Flatten[s /@ a]; p[0] = {4, 4, 4, 4, 9, 9, 4, 4, 11, 11, 4, 4}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; p[2]

Sequence in context: A029843 A000729 A106248 this_sequence A133451 A121899 A026614

Adjacent sequences: A132722 A132723 A132724 this_sequence A132726 A132727 A132728

nonn,uned

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 16 2007