- 注册时间
- 2009-2-12
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 28469
- 在线时间
- 小时
|
发表于 2026-1-9 22:41:59
|
显示全部楼层
回复 @毒酒滴冻鸭 在12#的评论/ 我重新跑了一下, 10^8,统计了一下频率,其实在10^4的时候,排序已经开始保持稳定不变了.
- <|477->26155852,411->24058370,233->18190595,533->15549417,177->4254808,599->4218599,2333->3108062,8211->2843557,3133->1750705,1377->1091310,2411->919114,6011->642136,9077->520943,6611->427839,9533->360040,8577->326614,5999->262443,9977->211149,23333->155656,24111->63112,95333->55131,60111->41037,136199->36008,66799->28097,194577->12346,233333->11747|>
复制代码
代码如下
- acc=Association[];
- Do[acc[p]=0,{p,NestWhileList[With[{p=FactorInteger[#][[-1,1]]},10 p+Mod[p,10]]&,233,Length[#]<2||#!=233&,1,30]//Union}];
- mmm=20;Monitor[Do[temp=NestWhileList[With[{p=FactorInteger[#][[-1,1]]},10 p+Mod[p,10]]&,m,KeyExistsQ[acc,#]==False&,1,100];acc[Last[temp]]++;If[Length[temp]>mmm,Print[{m,Length[temp]}];mmm=Length[temp]],{m,10^8}],{m,ReverseSort[acc]}]
复制代码
同时记录了最大的路径长度,23244413 迭代到入口411的时候停止,此时长度是59,
- {23244413,232444133,2324441333,23244413333,3184166211,246834599,224395099,2243950999,19162699,4077177,1045433,143211,477377,280811,2808111,550611,203933,43399,433999,100933,144199,131099,42299,422999,32299,322999,3229999,50399,4999,49999,499999,1277,12777,42599,10399,103999,1799,2577,8599,85999,859999,175511,250733,433,4333,6199,61999,5211,1933,19333,193333,3899,5577,133,199,1999,19999,28577,411}
复制代码
10^9,最大长度是 429872893 迭代到入口411的时候停止,此时长度是60,
- {429872893,4298728933,42987289333,1134229277,11342292777,12602547533,12556099,125560999,1255609999,10020833,100208333,1002083333,143211,477377,280811,2808111,550611,203933,43399,433999,100933,144199,131099,42299,422999,32299,322999,3229999,50399,4999,49999,499999,1277,12777,42599,10399,103999,1799,2577,8599,85999,859999,175511,250733,433,4333,6199,61999,5211,1933,19333,193333,3899,5577,133,199,1999,19999,28577,411}
复制代码 |
|