A week ago I was playing around with a card-shuffle method corresponding to an element of $S_{52}$, and the order of the cyclic group generated was 272 (ie, 272 shuffles returns the deck to original order).
I was curious as to whether this was higher or lower than expected. A full calculation would require computing the orders of the cyclic groups generated by all $52!$ elements of $S_{52}$, which is computationally infeasible, so instead I ran a Monte-Carlo simulation of the orders of the cyclic groups generated by uniformly-distributed randomly-chosen elements of $S_{52}$:
dat52 = ParallelTable[
GroupOrder[PermutationGroup[{RandomPermutation[52]}]], {10^6}];
Here is a coarse log-$x$-axis histogram of the results:
Histogram[dat52, "Log"]
The spike near 40 is not a statistical artifact; the results are only perturbed by $1/\sqrt{N}$ noise, which in this case is astronomically tiny (see the $y$-axis).
I was curious to see if there was any finer structure, so I made the following histogram-like image (right-click and open in a new tab to see large 4320 x 2320 pixel image):
The $x$-axis is logarithmic as before, and the $y$-axis goes up to about 24,000 counts (not labeled). As you can see, there is a lot of fine structure in the distribution of group orders.
Similarly, here is the histogram profile of the group orders of the elements of $S_{51}$ (full-size is 4320 x 2320 pixels):
Here is $S_{53}$ (full-size is 4580 x 2020 pixels):
And here is $S_{256}$ (full-size is 10020 x 4020 pixels):
Naturally, I'm curious whether there is anything known about these distributions, either structurally (ie, an explicit formula for the distribution counts of $S_n$), or asymptotically (ie, the smoothed profile tends towards so-and-so distribution as $n\to\infty$). Does anyone know, or is this beyond current mathematics?
From the comments in this question, it seems like this is a hard problem, but I was still curious as to what extent the structure is explainable.





Mean@N@dat52gives 1260.1, which is within a factor of 2 of your estimate. I'll have to take the time to make sure I understand your analysis later, but in the mean time I'll mark this as accepted. – DumpsterDoofus Jan 24 '15 at 00:29