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. > >