A133442 A geometrical graph substitution of a tess-tetrahedron embedded in a cube as an eight-"tone" all-naturals musical scale such that here the connections can be cut to isolate the tetrahedra.

3, 6, 8, 1, 3, 8, 1, 3, 6, 3, 6, 8, 1, 6, 8, 1, 3, 6, 3, 6, 8, 1, 6, 8, 1, 3, 8, 4, 5, 7, 2, 4, 7, 2, 4, 5, 4, 5, 7, 2, 5, 7, 2, 4, 5, 4, 5, 7, 2, 5, 7, 2, 4, 7

Offset

1,1

Comments

There is a definite difference in the music that the isolated tetrahedra gives compared to the connected ones.

Links

Table of n, a(n) for n=1..54.

Formula

p=0 such that: 1 -> {p*2, 3, 6, 8} 2 -> {p, 4, 5, 7} 3 -> {1, p*4, 6, 8} 4 -> {2, p*3, 5, 7} 5 -> {2, 4, p*6, 7} 6 -> {1, 3, p*5, 8} 7 -> {2, 4, 5, p*8} 8 -> {1, 3, 6, p*7}

Mathematica

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

Crossrefs

Sequence in context: A256372 A330890 A337404 * A133193 A200131 A298907

Adjacent sequences: A133439 A133440 A133441 * A133443 A133444 A133445

Keyword

nonn,uned

Author

Roger L. Bagula, Nov 26 2007

Status

approved