Notes

Chapter 4: Systems Based on Numbers

Section 2: Elementary Arithmetic


Implementation [of 3/2 system]

The evolution for t steps of the system at the top of the page can be computed simply by

NestList[If[EvenQ[#], 3#/2, 3(#+1)/2]&, 1, t]


From Stephen Wolfram: A New Kind of Science [citation]