[Date Index] [Thread Index] [Author Index]

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)