<< Calculus`LaplaceTransforms`

LaplaceTransform[ t^(n-1) Exp[-c/t], t, s]

<< Calculus`Pade`

N[ Pade[ Sin[x], {x,0,3,2} ] ]

Plot[ {%, Sin[x]}, {x,0,Pi} ]

<< Statistics`DescriptiveStatistics`

?LocationReport

LocationReport[ Table[Random[]-1/2, {1000}] ]

<< DiscreteMath`Permutations`

RandomPermutation[10]