       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[%][]
>

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[%][] - 1/(Sqrt[E] - 1)

0.x 10^-100

this is the same result which ealier send Daniel Lichtblau with function
Fold

--
takamura

```

• Prev by Date: Re: simplifying a summation / integral
• Next by Date: Re: No mesh with Graphics3D
• Previous by thread: Re: Limit
• Next by thread: Re: Re: General--Making the DisplayFormula style in ArticleModern look like Traditional