7.2. Some "small" sporadic simple groups

As further examples of manipulation of nontrivial finite groups, here you find the construction of strong generating sets for some of the 26 sporadic simple groups:

M24 is the largest of the five sporadic simple Mathieu groups, with a permutation representation of degree 24. It was found by Mathieu in 1873. Frobenious showed that the other four simple Mathieu groups (M11, M12, M22, M23) are subgroups of M24.

In[202]:=

g1 = Images[{4, 7, 17, 1, 13, 9, 2, 15, 6, 19, 18, 21, 5, 16, 8, 14, 3, 11, 10, 24, 12, 23, 22, 20}] ;

g2 = Images[{4, 21, 9, 6, 18, 1, 7, 8, 15, 5, 11, 12, 17, 2, 3, 13, 16, 10, 24, 20, 14, 22, 19, 23}] ;

In[204]:=

PermDeg/@{g1, g2}

Out[204]=

{24, 24}

In[205]:=

myTiming[Mathieu24SGS = SchreierSims[{}, GenSet[g1, g2], 24] ;]

0.011070 Second

In[206]:=

Length/@Mathieu24SGS

Out[206]=

StrongGenSet[7, 13]

In[207]:=

OrderOfGroup[Mathieu24SGS]

Out[207]=

244823040

The sixth sporadic simple group was discovered by Z. Janko in 1965 and it is called Janko1. It can be given in terms of a permutation representation of degree 266:

In[208]:=

In[210]:=

PermDeg/@{g1, g2}

Out[210]=

{266, 266}

In[211]:=

myTiming[Janko1SGS = SchreierSims[{}, GenSet[g1, g2], 266] ;]

0.162497 Second

In[212]:=

Length/@Janko1SGS

Out[212]=

StrongGenSet[3, 7]

In[213]:=

OrderOfGroup[Janko1SGS]

Out[213]=

175560

The Janko2 group can be given in terms of a permutation representation of degree 100:

In[214]:=

In[216]:=

PermDeg/@{g1, g2}

Out[216]=

{100, 100}

In[217]:=

myTiming[Janko2SGS = SchreierSims[{}, GenSet[g1, g2], 100] ;]

0.026291 Second

In[218]:=

Length/@Janko2SGS

Out[218]=

StrongGenSet[4, 8]

In[219]:=

OrderOfGroup[Janko2SGS]

Out[219]=

604800

This is the smallest of the three sporadic simple Conway groups, with a permutation representation of degree 276:

In[220]:=

In[222]:=

PermDeg/@{g1, g2}

Out[222]=

{276, 276}

In[223]:=

myTiming[Conway3SGS = SchreierSims[{}, GenSet[g1, g2], 276] ;]

2.768254 Second

In[224]:=

Length/@Conway3SGS

Out[224]=

StrongGenSet[6, 13]

In[225]:=

OrderOfGroup[Conway3SGS]

Out[225]=

495766656000

xPerm` can also handle bigger sporadic groups, but it takes very long, or much memory:

This is the smallest of the four sporadic simple Fischer groups. It can be given in terms of a permutation representation of degree 3510. The computation of a SGS requires 400 Mbyte RAM. (The SchreierSims command is deactivated; we read the result from a file.)

In[226]:=

g1 = Images[<<"data/F22p3510.1"] ;

g2 = Images[<<"data/F22p3510.2"] ;

In[228]:=

PermDeg/@{g1, g2}

Out[228]=

{3510, 3510}

In[228]:=

myTiming[Fischer22SGS = SchreierSims[{}, GenSet[g1, g2], 3510] ;]

3607.283267 Second

In[230]:=

base = {1, 2, 3, 5, 4} ;

GS = <<"data/Fischer22SGS" ;

Fischer22SGS = StrongGenSet[base, GS] ;

In[233]:=

Length/@Fischer22SGS

Out[233]=

StrongGenSet[5, 18]

In[234]:=

OrderOfGroup[Fischer22SGS]

Out[234]=

64561751654400

The Janko3 group can be given in terms of a permutation representation of degree 6156. This computation requires almost 900 Mbyte of memory:

In[235]:=

g1 = <<"data/J3G1-p6156B0.g1" ;

g2 = <<"data/J3G1-p6156B0.g2" ;

In[237]:=

PermDeg/@{g1, g2}

Out[237]=

{6156, 6156}

In[238]:=

myTiming[Janko3SGS = SchreierSims[{}, GenSet[g1, g2], 6156] ;]

894.421476 Second

In[239]:=

Length/@Janko3SGS

Out[239]=

StrongGenSet[3, 7]

In[240]:=

OrderOfGroup[Janko3SGS]

Out[240]=

50232960


Created by Mathematica  (May 16, 2008) Valid XHTML 1.1!