output formatting - Display 10^n as power - Mathematica Stack Exchange