results = Table[First[Timing[Fourier[Table[Random[],{i,10^n}]]]],{n,1,8}]