Mathematica lets you make anything dynamic--not just graphics.

Manipulate[Factor[x^n - 1], {n, 5, 500, 1}]