|
|
[原创]5x+1问题猜想。
|
编个程序对 1000 以内的正整数搜索,符合楼主要求的数共有 81 个。
ss = 0;
For[k = 1, k <= 1000, k++,
x = k;
s = 0;
While[x != 1 && s < 500, s = s + 1;
If[EvenQ[x], x = x/2, x = 5 x + 1]];
If[x == 1, ss = ss + 1;
Print[k, "------", s, "-----", x]]]; Print["ss=", ss]
程序运行结果如下:
1------0-----1
2------1-----1
3------5-----1
4------2-----1
6------6-----1
8------3-----1
12------7-----1
15------14-----1
16------4-----1
19------11-----1
24------8-----1
30------15-----1
32------5-----1
38------12-----1
48------9-----1
51------9-----1
60------16-----1
64------6-----1
65------16-----1
76------13-----1
96------10-----1
97------20-----1
102------10-----1
120------17-----1
128------7-----1
130------17-----1
137------37-----1
152------14-----1
155------24-----1
163------14-----1
175------44-----1
192------11-----1
194------21-----1
204------11-----1
219------41-----1
240------18-----1
243------18-----1
256------8-----1
260------18-----1
274------38-----1
304------15-----1
307------15-----1
310------25-----1
326------15-----1
343------35-----1
350------45-----1
384------12-----1
388------22-----1
397------32-----1
408------12-----1
417------22-----1
429------32-----1
438------42-----1
480------19-----1
486------19-----1
491------19-----1
512------9-----1
520------19-----1
548------39-----1
608------16-----1
614------16-----1
620------26-----1
635------36-----1
652------16-----1
655------16-----1
667------26-----1
686------36-----1
700------46-----1
768------13-----1
776------23-----1
794------33-----1
816------13-----1
819------13-----1
834------23-----1
858------33-----1
876------43-----1
941------73-----1
960------20-----1
972------20-----1
982------20-----1
993------30-----1
ss=81[br][br]-=-=-=-=- 以下内容由 天山草 在 时添加 -=-=-=-=-
表中左边第一列是符合要求的、能收敛到 1 的数,中间那一列是迭代次数,最右边那一列是收敛到 1 这个结果。 |
|