Table[{k, N[FractionalPart[k Log[10, 3]],5]}, {k,501,1000}]