找回密码
 欢迎注册
查看: 450|回复: 8

[讨论] k^n展开之后0-9的个数恰好是k展开之后0-9的个数的n倍

[复制链接]
发表于 2025-11-26 08:43:08 | 显示全部楼层 |阅读模式
悬赏50金币未解决
本帖最后由 northwolves 于 2025-12-8 09:32 编辑

假设a(n) 为最小的$n$位数$k$,满足$k^n$展开之后$0-9$的个数恰好是$k$展开之后$0-9$的个数的$n$倍。a(n)前7项:

1, 72576, 87624375, 5702631489, 961527834, 7025869314, 92751390846,847351722906,95479203618

如何高效计算$a(10)-a(16)$?

已知$ a(n)>8.0*10^{11}, n \in [10,16]$

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2025-11-26 18:27:38 来自手机 | 显示全部楼层
利用k^n=kn(mod 9),可以筛掉一些k

评分

参与人数 1威望 +8 金币 +8 贡献 +8 经验 +8 鲜花 +8 收起 理由
northwolves + 8 + 8 + 8 + 8 + 8 赞一个!

查看全部评分

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
回复

使用道具 举报

发表于 2025-11-26 18:32:16 来自手机 | 显示全部楼层
另外我怀疑n充分大后是否有解
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
回复

使用道具 举报

 楼主| 发表于 2025-11-26 19:34:01 | 显示全部楼层
  1. a[n_]:=Module[{r,x},Do[x=Floor[10^(r-1/2),9];While[x<10^r,If[DigitCount[x^n]==n DigitCount[x],Return[x]];x+=9],{r,10}]];Do[Print[{n, a[n]}], {n, 2, 5}]
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
回复

使用道具 举报

 楼主| 发表于 2025-11-29 07:06:14 | 显示全部楼层
a(9)=95479203618
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
回复

使用道具 举报

 楼主| 发表于 2025-12-2 21:30:44 | 显示全部楼层
a(8)=962470638315
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
回复

使用道具 举报

 楼主| 发表于 2025-12-8 09:28:08 | 显示全部楼层
更正: a(8)=847351722906
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
回复

使用道具 举报

发表于 2025-12-9 20:45:52 | 显示全部楼层
请问您如何求出来的

点评

模9筛选后穷举  发表于 2025-12-9 21:04
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2025-12-19 16:00 , Processed in 0.025821 second(s), 16 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表