One way is to use GAP, like so: gap> S:=SymmetricGroup(5); Sym( [ 1 .. 5 ] ) gap> G:=Subgroup(S, [(1,2)*(3,4), (1,5)]); Group([ (1,2)(3,4), (1,5) ]) gap> Size(G); 12 gap> Centre(G); Group([ (3,4) ]) gap> Size(last); 2 gap>