|
%I #17 Sep 27 2018 05:07:28
%S 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,
%T 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,
%U 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
%N Word obtained from axiom 2 using the morphism 1-> 267, 2-> 13467, 3-> 247, 4-> 23567, 5-> 467, 6-> 12457, 7-> 123456.
%C Previous name was: 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).
%C Idea inspired by a post in yahoo egroup fractals by "Dahlia Lahla" astro_girl_690(AT)yahoo.ca
%C In Mathematica you can transfer this to a 12-tone MIDI scale as: to letters
%C b = a /. 1 -> "a" /. 2 -> "b" /. 3 -> "c" /. 4 -> "d" /. 5 -> "e" /. 6 -> "f" /. 7 -> "g"
%C back to numbers on a 12-tone scale:
%C c = b /. "a" -> 1 /. "b" -> 3 /. "c" -> 4 /. "d" -> 6 /. "e" -> 8 /. "f" -> 9 /. "g" -> 11
%H Roger L. Bagula, Feb 26 2008, <a href="/A135599/b135599.txt">Table of n, a(n) for n = 1..314</a>
%t 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 t[a_] := Flatten[s /@ a];
%t p[0] = s[1]; p[1] = t[p[0]]; p[n_] := t[p[n - 1]]; a = p[3]
%Y Cf. A120714.
%K nonn,easy,less
%O 1,2
%A _Roger L. Bagula_, Feb 26 2008
%E Edited and new name from _Joerg Arndt_, Sep 26 2018
|
