Calculate Landau's function
Wolfram Language (Mathematica), 44 bytes

Max[PermutationOrder/@Permutations@Range@#]&amp;


Try it online!

Wolfram Language (Mathematica), 31 bytes

@DanielSchepler has a better solution:

Max[LCM@@@IntegerPartitions@#]&amp;


Try it online!