Re: how to iterate
- To: mathgroup at smc.vnet.net
- Subject: [mg65966] Re: [mg65948] how to iterate
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Tue, 25 Apr 2006 05:18:34 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Clear[f];
f[1]=1; f[2]=2; f[3]=3;
f[n_Integer?Positive]:=f[n]=(f[n-1]+f[n-2]+1)/f[n-3];
Table[{n,f[n]},{n,12}]
{{1, 1}, {2, 2}, {3, 3}, {4, 6}, {5, 5}, {6, 4}, {7, 5/3}, {8, 4/3}, {9, 1}, {10, 2}, {11,
3},
{12, 6}}
Bob Hanlon
>
> From: "vr" <valentino.rossi.85 at gmail.com>
To: mathgroup at smc.vnet.net
> Subject: [mg65966] [mg65948] how to iterate
>
> hi all,
>
> pls excuse my ignorance. i'm still new to mathematica, and i forgot
> much of what i had learned.
>
> how can i list the output of the function below for n=4..2006?
> f(n) = ( f(n-1) + f(n-2) + 1 ) / f(n-3)
> given f(1)=1, f(2)=2, f(3)=3.
>
> thanks for any help in advance.
>
>