作者:何冬州杨巅杨艳华典生
链接:https://www.zhihu.com/question/444236234/answer/1728386749
来源:知乎
著作权归作者所有。商业转载请联系作者获得授权,非商业转载请注明出处。
题:
114514的多少次方,中间包含着1919810呢?
解:
Table[Select[Range[1000], MemberQ[IntegerDigits[10^k*114514^#, 10^7], 1919810]&], {k,0,6}]
Table[Select[Range[1000], MemberQ[IntegerDigits[10^k*114514^#, 10^7], 1919810]&], {k,0,6}] - Wolfram|Alpha
{{}, {309}, {}, {910}, {}, {}, {}}
Table[Select[Range[1001, 2000], MemberQ[IntegerDigits[10^k*114514^#, 10^7], 1919810]&], {k,0,6}]
{{}, {}, {}, {}, {}, {}, {}}
Table[Select[Range[2001, 3000], MemberQ[IntegerDigits[10^k*114514^#, 10^7], 1919810]&], {k,0,6}] 超出算力.
Table[Select[Range[2001, 2500], MemberQ[IntegerDigits[10^k*114514^#, 10^7], 1919810]&], {k,0,6}]
Table[Select[Range[2001, 2500], MemberQ[IntegerDigits[10^k*114514^#, 10^7], 1919810]&], {k,0,6}] - Wolfram|Alpha
{{}, {}, {}, {}, {}, {}, {2328}}
...
待改进。
参考解答:
114514的多少次方,中间包含着1919810呢? 摘注:{
Select[Range[10^4], StringContainsQ[ToString[114514^#], "1919810"] &] // AbsoluteTiming
{309,910,2328,3045,3499,3504,3658,4584,4901,4940,5496,5713,5715,5872,7071,7282,7680,7738,7949,8081,8144,8474,8553,8922,9397,10324,...}
此外还给出了python代码。
查 oeis.org ,无
}
2021-2-13旧解:
设114514^n中间包含着1919810,同时不妨设在我们所找到的某个1919810之后有m位数字。或者说,设114514^n的末尾m位数字之前出现1919810.
(注意,一、可以出现多次1919810。二、求解使得114514^n中间出现任意指定数字串的n,均会有无数个解。三、求解使得中间出现不连续的指定个数的1919810,待研究)
依所设,即求:Int((114514^x)/10^m) mod 10^7 =1919810
或114514^x=a*10^(7+m)+1919810*10^m+b,0<b<10^m
调用在线网站 www.wolframalpha.com, 作了以下输入,尝试解出答案,未如愿。好久没正式用mathematica了,待研究。。。
Solve[{(114514^x)=a*10^(7+m)]+1919810*10^m+b,b>0,b<10^m},{x,m,a,b},Intergers]
Solve[Mod[IntegerPart[(114514^x)/10^m],10^7]==1919810,{x,m},Intergers]
www.wolframalpha.com
{备忘:
若求114514^n结尾为1919810,则n不存在,理由如下:
若n为非负整数,则114514^n mod 10 =4^n≠
1919810 mod 10 =0
故 114514^n mod 10= 1919810无非负整数解
故 114514^n mod 10^7= 1919810无非负整数解
}