作者:何冬州楊巔楊艷華典生
連結: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無非負整數解
}