Just a slight modification to ilian's post, if all you wanted was the repeating digits
Last[First[RealDigits[4111111/333000]]]
Paul.
See http://reference.wolfram.com/language/ref/RealDigits.html
In[2]:= RealDigits[4111111/333000] Out[2]= {{1, 2, 3, 4, 5, {6, 7, 8}}, 2}
