WeightsTom( tom )
WeightsTom
extracts the weights from a table of marks tom, i.e., the
diagonal entries, indicating the index of a subgroup in its normalizer.
gap> wt := WeightsTom( a5 ); [ 60, 2, 2, 3, 2, 1, 1, 1, 1 ]
This information may be used to obtain the numbers of conjugate supergroups from the marks.
gap> marks := Marks( a5 );; gap> List( [ 1 .. 9 ], x -> marks[x] / wt[x] ); [ [ 1 ], [ 15, 1 ], [ 10, 1 ], [ 5, 1, 1 ], [ 6, 1 ], [ 10, 2, 1, 1 ], [ 6, 2, 1, 1 ], [ 5, 1, 2, 1, 1 ], [ 1, 1, 1, 1, 1, 1, 1, 1, 1 ] ]
GAP 3.4.4