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]

Image Source Notebooks:

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