数字黑洞.nb

mathematica演示数字黑洞，123黑洞、6174、水仙花数、角谷猜想 func[x_] := If[OddQ[x], 3*x + 1, x/2] NestWhileList[func, 27, # != 1 &] ListLinePlot[%, PlotRange -> All]