Permutation Group

Author

Eric W. Weisstein
June 8, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GroupTheory/PermutationGroup.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/PermutationGroup.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Initialization

<<DiscreteMath`Combinatorica`

Usage

?PermutationGroupQ

Code

PermutationGroups[n_]:=Select[Join[{Range[n]},#]&/@Subsets[Rest[Permutations[n]]],
PermutationGroupQ
]

Enumeration

PermutationGroups[1]

PermutationGroups[2]//ColumnForm

PermutationGroups[3]//ColumnForm

PermutationGroups[4]//ColumnForm