Mathematica Program

*To*: mathgroup at yoda.ncsa.uiuc.edu*Subject*: Mathematica Program*From*: pwm at macaw.jhuapl.edu (Phil W. Miller x8335 1-e138)*Date*: Wed, 6 Mar 91 13:54:08 EST

Could someone please give me advice on good way of defining the following iteration? (This is an example in the MATLAB manual) take any positive integer if it is even, divide by two; if it is odd multiply by 3 and add 1 Repeat until your integer becomes 1 I have defined the function f to be: f[1] = 1 f[n_] := f[n/2] /; EvenQ[n] f[n_] := f[3 n + 1] /; OddQ[n] && n != 1 which evaluates to 1 for a given integer. What is a good way to get the intermediate values used in the iteration so I can plot them? I am a novice at programming in Mma, and would appreciate any help. Thank you. Phil Miller pwm at macaw.jhuapl.edu