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