OFFSET
0,3
COMMENTS
This flow can be visualized in 3d by using a cube's vertices as the substitution for the eight points.
FORMULA
1->{2, 3}, 2->{3, 4}, 3->{4, 7}, 4->{1, 8}, 5->{1, 6}, 6->{2, 7}, 7->{5, 8}, 8->{5, 6}
MATHEMATICA
s[1] = {2, 3}; s[2] = {3, 4}; s[3] = {1, 2, 4, 7}; s[4] = {1, 8}; s[5] = { 1, 6}; s[6] = {2, 7}; s[7] = {5, 8}; s[8] = {5, 6}; t[a_] := Join[a, Flatten[s/@a]]; p[0]={1}; p[1]=t[{1}]; p[n_]:=t[p[n-1]] a=Flatten[Table[p[n], {n, 0, 3}]]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Apr 26 2005
STATUS
approved