可视化角谷猜想

不了解角谷猜想的可以看看什么是角谷猜想?

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的结果.