Combinatorica`
Combinatorica`
PermutationWithCycle
PermutationWithCycle[n,{i,j,…}]
gives a size 
permutation in which 
is a cycle and all other elements are fixed points.
Details and Options
- To use PermutationWithCycle, you first need to load the Combinatorica Package using Needs["Combinatorica`"].