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]