PermutationCyclesQ

PermutationCyclesQ[expr] returns True if expr is a permutation in disjoint cyclic form, and False otherwise.

Examples

PermutationCyclesQ[Cycles[{{1, 2, 3}}]]

PermutationCyclesQ[{1, 2, 3}]

Please visit the official Wolfram Language Reference for more details.