Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [CapitalGamma] = {2, 3, 5, 7, 6, 8, 10, 12, 24};
- edges = Apply[DirectedEdge,Select[Tuples[[CapitalGamma], 2],
- Mod[#[[2]], #[[1]]] == 0 &], {1}];
- Graph[[CapitalGamma], edges, VertexLabels -> "Name"]
Add Comment
Please, Sign In to add comment
