SHARE
TWEET

Untitled

a guest Oct 19th, 2017 41 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. for G in AllSmallGroups(60) do
  2.   Conj:=ConjugacyClassesSubgroups(LatticeSubgroups(G));
  3.   SubgroupSizes:=Set(Conj,C->Size(C[1]));
  4.   Print(StructureDescription(G)," ",IsAbelian(G)," ",SubgroupSizes,"n");
  5. od;
  6.    
  7. C5 x (C3 : C4) false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  8. C3 x (C5 : C4) false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  9. C15 : C4 false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  10. C60 true [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  11. A5 false [ 1, 2, 3, 4, 5, 6, 10, 12, 60 ]
  12. C3 x (C5 : C4) false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  13. C15 : C4 false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  14. S3 x D10 false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  15. C5 x A4 false [ 1, 2, 3, 4, 5, 10, 12, 15, 20, 60 ]
  16. C6 x D10 false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  17. C10 x S3 false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  18. D60 false [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
  19. C30 x C2 true [ 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60 ]
RAW Paste Data
Top