RosettaCodeData/Task/Prime-decomposition/Mathematica/prime-decomposition-5.math

 Table[AbsoluteTiming[ShowPrimeDecomposition[2^a-1]]//Print[#[[1]]," sec"]&,{a,50,150,10}];