Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: how to iterate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66874] Re: how to iterate
  • From: "Dana" <ddelouis at bellsouth.net>
  • Date: Fri, 2 Jun 2006 04:08:59 -0400 (EDT)
  • References: <e2i987$9fc$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi.

f[1] = 1; f[2] = 2; f[3] = 3;


Table[f[n] = (f[n - 1] + f[n - 2] + 1)/f[n - 3], {n, 4, 17}]
{6, 5, 4, 5/3, 4/3, 1, 2, 3, 6, 5, 4, 5/3, 4/3, 1}

?f

Note that there are only 8 unique outputs, as the output pattern  repeats.

You could use

Mod[n, 8, 1]

on any integer n to convert it to a number 1-8, and select one of your 8 
outputs.

-- 
HTH.  :>)

Dana DeLouis
Windows XP, Office 2003, Mathematica 5.2



"vr" <valentino.rossi.85 at gmail.com> wrote in message 
news:e2i987$9fc$1 at smc.vnet.net...
> 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.
> 


  • Prev by Date: Re: How to get the maximums of a curve
  • Next by Date: Re: Installing AddOn
  • Previous by thread: p-th power of quartic polynom of the n variables
  • Next by thread: Re: A conditional random number generation problem (please help me!)