Re: how to iterate
- To: mathgroup at smc.vnet.net
- Subject: [mg65995] Re: how to iterate
- From: "Richard" <rkausch at free.fr>
- Date: Wed, 26 Apr 2006 04:37:51 -0400 (EDT)
- References: <e2i987$9fc$1@smc.vnet.net><e2kr6v$7oo$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hello
The iterations proposed in different previous mails are very long to
perform .
I suggest
g[{a_, b_, c_}] = {b, c, (1 + b + c)/a};
Take[Flatten[NestList[g, {1, 2, 3}, 500]], {1, 10000, 3}].
This gives the 10000 first terms in some ms.
Anyway this sequence is periodic byt this technique may reveal useful
in any other context.
Richard Kausch .Paris (F)