# How can I tell Mathematica to use ScientificForm also on the first column?

I want to calculate the value of a function for some particular values of the variable and put it in table. This is my code:

ClearAll["Global*"]
M = 511000;
z = 1;
\[Alpha] = 1/137;
b[T_?NumericQ] := Sqrt[(T (T + 2 M))/(T + M)^2];

i[T_?NumericQ] := NIntegrate[ 1/w ((2 M T +  T^2)/(M + T)^2 + (2 M (T - w) + (T - w)^2)/(M + T - w)^2 +   2 ((-M^2 + T (T - w))/  M^2)) (((4 + b[T] + b[T]^2) z^2 \[Alpha])/(12 (1 +  b[T]) \[Pi])), {w, 4.3, 100}];

Table[{T, i[T]}, {T, {10^6, 5*10^6, 10^7, 5*10^7, 10^8}}] // TableForm // ScientificForm


It works, but I get the ScientificForm only on the second column: how can I make Mathematica to use ScientificForm also on the first column?

• why can't you just do Table[{ScientificForm@T, i[T]}, {T, {10^6, 5*10^6, 10^7, 5*10^7, 10^8}}];? (btw, using i for function name is not very good choice) Commented Jun 12, 2020 at 13:44
• @Nasser because it doesn't work. I use version 10.0 if it may be a problem. Commented Jun 12, 2020 at 13:46
• I see. I do not have V 10. Will try on V 11. Commented Jun 12, 2020 at 13:47
• ScientificForm applies only to non-arbitrary precision numbers. Try Table[{N[T], i[T]}, ...]. Commented Jun 12, 2020 at 13:53

 Table[{T, i[T]}, {T, N@{10^6, 5*10^6, 10^7, 5*10^7, 10^8}}] //
`