不了解角谷猜想的可以看看
GraphPlot[ Rule @@@ DeleteDuplicates@ Flatten[(Partition[#, 2 1] & /@ (NestWhileList[ If[EvenQ@#, #/2, 3 # + 1] &, #, # > 1 &] & /@ Range[2, 25])), 1], DirectedEdges -> True, VertexLabeling -> True]
这小段代码就显示了自然数2到25是如何按照角谷猜想的规则变为1的.
如果觉得不够带劲的话,这里有2-10000的结果.