Table[[frac(log10((10^6 + n)!)), (10^6 + n)!],{n,0.0,20.0,1.0}]