In[]:= RealDigits[1 + 1/2 + 1/3]
Out[]= {{1, 8, {3}}, 1}