Display 10^n as power

An alternative would be to define your own number form:

ClearAll[form]
SetAttributes[form, Listable]

form[x_] := ScientificForm[N@x, NumberFormat -> (Superscript[10, #3] &)]
form[1] := Superscript[10, 0]

10^Partition[Range[-6, 6], 7, 1] // form // 
   TableForm[#, TableHeadings -> {#[[4]], #[[4]]}] &

enter image description here


I hadnt seen Eldos answer before now, but I did copy the SetAttributes and ClearAll from him.

Define:

ClearAll[newForm]
SetAttributes[newForm, Listable]

newForm[x_] :=
  If[IntegerQ@x == True && Divisible[x, 10],
   ScientificForm[x // N,
    NumberFormat -> (
      If[Length@Characters@#3 != 0,
        If[ToExpression@#1 == 1,
         Row[{Superscript[10, 
            ToString[ToExpression@#3 - Length@Characters@#1 + 2]]}],
         Row[{x/10^(ToExpression@#3 - Length@Characters@#1 + 2), 
           "\[Times]", 
           Superscript[10, 
            ToString[ToExpression@#3 - Length@Characters@#1 + 2]]}]],
        #1] &)],
   ScientificForm[x]];

So the following comand gives a nice result

v = {1, 8^5, 130, 130., 15400000, 11.^7, 10^3};
newForm[v]

enter image description here


TableForm[
 Table[
  Superscript[10, x + y],
  {x, -3, 3},
  {y, -3, 3}
  ], TableHeadings -> {
   Table[Superscript[10, n], {n, -3, 3}],
   Table[Superscript[10, n], {n, -3, 3}]}
 ]

table