joseboth[m_, mm_] := Block[{t, p, q, u, v, w}, w = mm - 1; t = Range[m]; p = t; q = t; Do[p = RotateLeft[p, w]; u = First[p]; p = Rest[p]; q = Drop[q, Position[q, u][[1]]]; If[Length[p] == 1, Break[],]; q = RotateRight[q, w]; v = Last[q]; q = Drop[q, -1]; p = Drop[p, Position[p, v][[1]]]; If[Length[q] == 1, Break[],], {n, 1, Ceiling[m/2]}]; p[[1]]];
The authors could prove that the graph of in Example 2.2 has the self-similarity with the ratio of in [6]. The authors have not proved the existence of the self-similarity for . As to these problems the authors are going to present only graphs, and the graphs seem to have the self-similarity.
From Example 2.2, ..., Example 2.10 the authors can get the following prediction.