一个最终能收敛到 11 或 15 或 43 的关于质因数分解的猜想

天山草

此问题来源于 悠闲数学网站 之 https://kuing.cjhb.site/forum.ph ... amp;extra=#pid66435

simpley

85就不是

simpley

我测试了到30000个数,确实都在这4个数中.要加上85

天山草

simpley 发表于 2025-4-17 03:34
85就不是

85 再迭代一次就得到 43：

天山草

可用下面这个程序检测，输入一个 a 的值，程序运行结束后最后一个数字没有例外均是 11 或 15 或 43。

1. Clear["Global`*"];
   
2. a = 3682219716521039736463107697463395955;
   
3. Do[
   
4. b = Flatten[FactorInteger[a]]; n = Length[b];
   
5. s = 0;
   
6. Do[s = s + b[[k]] (b[[k + 1]] + 1), {k, 1, n, 2}];
   
7. s = s - 1; a = s;
   
8. Print[a]; If[(a == 15 || a == 11 || a == 43), Break[]], {9999}]

复制代码