Wolfram Language (Mathematica), 71 bytes
ListLinePlot@Partition[NestWhileList[If[OddQ@#,3#+1,#/2]&,#,#>1&],2,1]&
ZaMoC
- 24.9k
- 2
- 30
- 81