Re: Limit

*To*: mathgroup at smc.vnet.net*Subject*: [mg64772] Re: Limit*From*: Takamura <franek at nospam.onet.pl>*Date*: Thu, 2 Mar 2006 19:27:45 -0500 (EST)*References*: <dtrvmt$lv0$1@smc.vnet.net> <du6m5g$58r$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Takamura wrote: > Sinan Kapçak wrote: > >>i want to find the value of the limit >> >>1+(2/(3+(4/(5+(6/(7+... >> >>how can i do that with Mathematica? >> > > Table[{i, 1 + N[FromContinuedFraction[Table[(j + 1)/j, {j, 2, i, 2}]], > 100]}, {i, 450, 500, 10}] > Last[%][[2]] > I'm sorry . This answers is wrong to be so g[n_] := FromContinuedFraction[Insert[a = 1; Table[a = j/a; (j + 1)/a, {j, 2, 2n, 2}], 1, 1]] Table[{i, N[g[i], 100]}, {i, 55, 60}] Last[%][[2]] - 1/(Sqrt[E] - 1) 0.x 10^-100 this is the same result which ealier send Daniel Lichtblau with function Fold -- takamura