MobiusKantorGraph().mws

>    with(GraphTheory):with(SpecialGraphs):

>    G := MobiusKantorGraph();

G := `Graph 8: an undirected unweighted graph with 16 vertices and 24 edge(s)`

>    DrawGraph(G);

[Maple Plot]

>    DrawGraph(G,style=spring,dimension=3);

[Maple Plot]

>   

http://mathworld.wolfram.com/Moebius-KantorGraph.html