数字黑洞，指的是某种运算，这种运算一般限定从某些整数出发，反复迭代后结果必然落入一个点或若干点。任意整数a，如果它的偶数位的个数为b，奇数位的个数为c，b和c的和为d，那么定义运算@：@a = bcd，比如 @647382 = 426。那么123数字黑洞可以描述为：对于任意整数a，有While（a != 123）a = @a; 这个循环可以结束。比如整数274829，@274829 = 426，@426 = 303，@303 = 123，可见，274829经过三次变换变成了123，现在，给你一个整数a，你知道它要经过几次变换才能变成123吗？

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