This site is supported by donations to The OEIS Foundation.

Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 5000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A131517 Jazz chord substitution: Aminor,Cminor,DMajor,GMajor Uses a start vector based on these: {1, 4, 6, 11}. 0
 1, 4, 8, 11, 4, 8, 11, 1, 8, 11, 1, 4, 11, 3, 6, 10, 4, 8, 11, 1, 8, 11, 1, 4, 11, 3, 6, 10, 1, 4, 8, 11, 8, 11, 1, 4, 11, 3, 6, 10, 1, 4, 8, 11, 4, 8, 11, 1, 11, 3, 6, 10, 3, 6, 10, 11, 6, 10, 1, 5, 10, 11, 3, 6, 4, 8, 11, 1, 8, 11, 1, 4, 11, 3, 6, 10, 1, 4, 8, 11, 8, 11, 1, 4, 11, 3, 6, 10, 1, 4 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Actually a little more complex than most CGF chord type Jazz. LINKS FORMULA 1-> {1, 4, 8, 11}; 2-> {2, 4, 7, 11}; 3-> {3, 6, 10, 11}; 4->{4, 8, 11, 1}; 5-> {5, 6, 10, 1}; 6-> {6, 10, 1, 5}; 7-> {7, 11, 12, 4}; 8->{8, 11, 1, 4}; 9-> {9, 1, 4, 8}; 10-> {10, 11, 3, 6}; 11->{11, 3, 6, 10}; 12->{12, 4, 7, 11}; MATHEMATICA Clear[s] s[1] = {1, 4, 8, 11}; s[2] = {2, 4, 7, 11}; s[3] = {3, 6, 10, 11}; s[4] = {4, 8, 11, 1}; s[5] = {5, 6, 10, 1}; s[6] = {6, 10, 1, 5}; s[7] = {7, 11, 12, 4}; s[8] = {8, 11, 1, 4}; s[9] = {9, 1, 4, 8}; s[ 10] = {10, 11, 3, 6}; s[11] = {11, 3, 6, 10}; s[12] = {12, 4, 7, 11}; t[a_] := Flatten[s /@ a]; p[0] = {1, 4, 6, 11}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; p[3] CROSSREFS Sequence in context: A109445 A131803 A133270 * A076689 A161867 A267756 Adjacent sequences:  A131514 A131515 A131516 * A131518 A131519 A131520 KEYWORD nonn,uned AUTHOR Roger L. Bagula, Oct 21 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.