Polytope of Type {52,4,2,2}

This page is part of the Atlas of Small Regular Polytopes
Atlas Canonical Name : {52,4,2,2}*1664
if this polytope has a name.
Group : SmallGroup(1664,17727)
Rank : 5
Schlafli Type : {52,4,2,2}
Number of vertices, edges, etc : 52, 104, 4, 2, 2
Order of s0s1s2s3s4 : 52
Order of s0s1s2s3s4s3s2s1 : 2
Special Properties :
   Degenerate
   Universal
   Orientable
   Flat
Related Polytopes :
   Facet
   Vertex Figure
   Dual
Facet Of :
   None in this Atlas
Vertex Figure Of :
   None in this Atlas
Quotients (Maximal Quotients in Boldface) :
   2-fold quotients : {52,2,2,2}*832, {26,4,2,2}*832
   4-fold quotients : {26,2,2,2}*416
   8-fold quotients : {13,2,2,2}*208
   13-fold quotients : {4,4,2,2}*128
   26-fold quotients : {2,4,2,2}*64, {4,2,2,2}*64
   52-fold quotients : {2,2,2,2}*32
Covers (Minimal Covers in Boldface) :
   None in this atlas.
Permutation Representation (GAP) :
s0 := (  2, 13)(  3, 12)(  4, 11)(  5, 10)(  6,  9)(  7,  8)( 15, 26)( 16, 25)
( 17, 24)( 18, 23)( 19, 22)( 20, 21)( 28, 39)( 29, 38)( 30, 37)( 31, 36)
( 32, 35)( 33, 34)( 41, 52)( 42, 51)( 43, 50)( 44, 49)( 45, 48)( 46, 47)
( 53, 79)( 54, 91)( 55, 90)( 56, 89)( 57, 88)( 58, 87)( 59, 86)( 60, 85)
( 61, 84)( 62, 83)( 63, 82)( 64, 81)( 65, 80)( 66, 92)( 67,104)( 68,103)
( 69,102)( 70,101)( 71,100)( 72, 99)( 73, 98)( 74, 97)( 75, 96)( 76, 95)
( 77, 94)( 78, 93);;
s1 := (  1, 54)(  2, 53)(  3, 65)(  4, 64)(  5, 63)(  6, 62)(  7, 61)(  8, 60)
(  9, 59)( 10, 58)( 11, 57)( 12, 56)( 13, 55)( 14, 67)( 15, 66)( 16, 78)
( 17, 77)( 18, 76)( 19, 75)( 20, 74)( 21, 73)( 22, 72)( 23, 71)( 24, 70)
( 25, 69)( 26, 68)( 27, 80)( 28, 79)( 29, 91)( 30, 90)( 31, 89)( 32, 88)
( 33, 87)( 34, 86)( 35, 85)( 36, 84)( 37, 83)( 38, 82)( 39, 81)( 40, 93)
( 41, 92)( 42,104)( 43,103)( 44,102)( 45,101)( 46,100)( 47, 99)( 48, 98)
( 49, 97)( 50, 96)( 51, 95)( 52, 94);;
s2 := ( 53, 66)( 54, 67)( 55, 68)( 56, 69)( 57, 70)( 58, 71)( 59, 72)( 60, 73)
( 61, 74)( 62, 75)( 63, 76)( 64, 77)( 65, 78)( 79, 92)( 80, 93)( 81, 94)
( 82, 95)( 83, 96)( 84, 97)( 85, 98)( 86, 99)( 87,100)( 88,101)( 89,102)
( 90,103)( 91,104);;
s3 := (105,106);;
s4 := (107,108);;
poly := Group([s0,s1,s2,s3,s4]);;
 
Finitely Presented Group Representation (GAP) :
F := FreeGroup("s0","s1","s2","s3","s4");;
s0 := F.1;;  s1 := F.2;;  s2 := F.3;;  s3 := F.4;;  s4 := F.5;;  
rels := [ s0*s0, s1*s1, s2*s2, s3*s3, s4*s4, s0*s2*s0*s2, 
s0*s3*s0*s3, s1*s3*s1*s3, s2*s3*s2*s3, 
s0*s4*s0*s4, s1*s4*s1*s4, s2*s4*s2*s4, 
s3*s4*s3*s4, s0*s1*s2*s1*s0*s1*s2*s1, 
s1*s2*s1*s2*s1*s2*s1*s2, s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1 ];;
poly := F / rels;;
 
Permutation Representation (Magma) :
s0 := Sym(108)!(  2, 13)(  3, 12)(  4, 11)(  5, 10)(  6,  9)(  7,  8)( 15, 26)
( 16, 25)( 17, 24)( 18, 23)( 19, 22)( 20, 21)( 28, 39)( 29, 38)( 30, 37)
( 31, 36)( 32, 35)( 33, 34)( 41, 52)( 42, 51)( 43, 50)( 44, 49)( 45, 48)
( 46, 47)( 53, 79)( 54, 91)( 55, 90)( 56, 89)( 57, 88)( 58, 87)( 59, 86)
( 60, 85)( 61, 84)( 62, 83)( 63, 82)( 64, 81)( 65, 80)( 66, 92)( 67,104)
( 68,103)( 69,102)( 70,101)( 71,100)( 72, 99)( 73, 98)( 74, 97)( 75, 96)
( 76, 95)( 77, 94)( 78, 93);
s1 := Sym(108)!(  1, 54)(  2, 53)(  3, 65)(  4, 64)(  5, 63)(  6, 62)(  7, 61)
(  8, 60)(  9, 59)( 10, 58)( 11, 57)( 12, 56)( 13, 55)( 14, 67)( 15, 66)
( 16, 78)( 17, 77)( 18, 76)( 19, 75)( 20, 74)( 21, 73)( 22, 72)( 23, 71)
( 24, 70)( 25, 69)( 26, 68)( 27, 80)( 28, 79)( 29, 91)( 30, 90)( 31, 89)
( 32, 88)( 33, 87)( 34, 86)( 35, 85)( 36, 84)( 37, 83)( 38, 82)( 39, 81)
( 40, 93)( 41, 92)( 42,104)( 43,103)( 44,102)( 45,101)( 46,100)( 47, 99)
( 48, 98)( 49, 97)( 50, 96)( 51, 95)( 52, 94);
s2 := Sym(108)!( 53, 66)( 54, 67)( 55, 68)( 56, 69)( 57, 70)( 58, 71)( 59, 72)
( 60, 73)( 61, 74)( 62, 75)( 63, 76)( 64, 77)( 65, 78)( 79, 92)( 80, 93)
( 81, 94)( 82, 95)( 83, 96)( 84, 97)( 85, 98)( 86, 99)( 87,100)( 88,101)
( 89,102)( 90,103)( 91,104);
s3 := Sym(108)!(105,106);
s4 := Sym(108)!(107,108);
poly := sub<Sym(108)|s0,s1,s2,s3,s4>;
 
Finitely Presented Group Representation (Magma) :
poly<s0,s1,s2,s3,s4> := Group< s0,s1,s2,s3,s4 | s0*s0, s1*s1, s2*s2, 
s3*s3, s4*s4, s0*s2*s0*s2, s0*s3*s0*s3, 
s1*s3*s1*s3, s2*s3*s2*s3, s0*s4*s0*s4, 
s1*s4*s1*s4, s2*s4*s2*s4, s3*s4*s3*s4, 
s0*s1*s2*s1*s0*s1*s2*s1, s1*s2*s1*s2*s1*s2*s1*s2, 
s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1*s0*s1 >; 
 

to this polytope