Example: I have this number
num = 2.9525730420542016*10^1798
(* 2.952573042054202*10^1798 *)
If I want to convert it to a string, I don't get "2.952573042054202*10^1798" but
ToString[num, InputForm]
(* "2.9525730420542015686180548`15.954589770191005*^1798" *)
How to get
"2.952573042054202*10^1798"
as string back ?
To explain this question: I have a 1.5 GB file with several million such numbers. I need to do some recalculation and save it to a file again. However, if I save the resulting values (using Write [...]), a file more than twice the size will be created. The accuracy of the input numbers is about 17 digits, so the values in the new file cannot be more accurate. The other decimal places are meaningless, so I need to trim them.
MantissaExponent[]
. $\endgroup$