13 Jun
2018
13 Jun
'18
2:21 a.m.
Out[551]= {3, 5, 28/5, 165/28, 91/15, 68/11, 570/91, 253/40, 325/51, 609/95, 496/77} In[552]:= fitrat@% Out[552]= 3 + (-1 + n)/(1/2 + (-2 + n)/(26/7 + (-3 + n)/(203/2 + 28 (-4 + n)))) In[553]:= FullSimplify@% Out[553]= 3/4 (9 + 1/(1 - 2 n) - 4/n) fitrat[L_List, v_: (n - 1)] := If[MemberQ[#2 - #, 0] || #2 == {}, #, # + v/fitrat[Range[Length@#2]/(#2 - #), v - 1]] &[L[[1]], Rest@L] Has anyone a nice explanation of why this works? --rwg