my $log10 = log2ToLog10( 1024000 );

printf "%.16fe%d\n",  10**( $log10 - int( $log10 )), int( $log10 );;
5.1946933632179482e308254