OFFSET
1,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 323.
PROG
(Magma) S := function(n) G := Sym({0..n-1}); p := &*[ G | (i, n-1-i) : i in [ 0..Floor((n-2)/2) ] ];
q := G![ Min(2*i, 2*n-1-2*i):i in [ 0..n-1 ] ]; return Order(sub<G | p, q >); end function;
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
STATUS
approved