editing
approved
editing
approved
Table[FromDigits[FindTransientRepeat[RealDigits[n/(n+1), 10, 100][[1]], 3][[2]]], {n, 40}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 07 2017 *)
approved
editing
editing
approved
editing
approved
editing
proposed
5/6 /7 = 0,.85714285714285714285714285714286... and digit-cycle is 857142, so a(56) = 857142.
proposed
editing
editing
proposed