Automatic Layout of a Sequence of Networks

GraphPlot automatically finds layouts to represent any form of relational data.

Needs["DiscreteMath`GraphPlot`"]

Table[i->Mod[i^2,n],{i,n}] defines a mapping; GraphPlot finds a visual representation for any n.

Table[
        GraphPlot[Table[i -> Mod[i^2, n], {i, n}]], {n, 100, 130, 
          1}];