mereni[od_,do_,step_,opak_]:=
Table[
Module[{a,b,j},
a=RandomInteger[2^i];
b=RandomInteger[2^i];  
{i,Do[a*b;,{opak}]//Timing//First}
],
{i,od,do,step}]

vysledky=mereni[50,1000,50,100000]

ListPlot[vysledky,AxesOrigin->{0,0}]

f=Fit[vysledky,{1,x^1.58},x]

model=k*x^l+m

fit=FindFit[vysledky,model,{k,l,m},x]

Show[ListPlot[vysledky, PlotStyle->Red,AxesOrigin->{0,0}], Plot[{f,model/.fit} ,{x, 0,1000}]]