| 显示1-1个结果（共1个）。
第页1
1/n十进制展开式的周期部分。任何初始0都应置于循环末尾。
+0
21
0, 0, 3, 0, 0, 6, 142857, 0, 1, 0, 90, 3, 769230, 714285, 6, 0, 5882352941176470, 5, 526315789473684210, 0, 476190, 45, 4347826086956521739130, 6, 0, 384615, 370, 571428, 3448275862068965517241379310, 3, 322580645161290, 0, 30, 2941176470588235, 285714, 7
评论
当n=3或6时，a（n）=n（参见De Koninck&Mercier参考）-伯纳德·肖特2020年12月2日
参考文献
Jean-Marie De Koninck和Armel Mercier，1001 Problèmes en Théorie Classique des Nombres，Probléme 347，第50和205页，Ellipses，巴黎，2004年。
例子
1/28=03571428571428571428571428571428571428571428571…并且数字周期为571428，因此a（28）=571428。
MAPLE公司
isCycl:=proc（n）局部ifa，i；如果n<=2，则返回（false）；fi；ifa:=ifactors（n）[2]；对于i从1到nops（ifa），如果op（1，op（i，ifa）；fi；od；返回（假）；结束时间：A036275号：=proc（n）局部ifa，sh，lpow，mpow，r；如果不是isCycl（n），则RETURN（0）；否则lpow：=1；如果（10^lpow-10^mpow）mod n=0，则r:=（10^lpow-10^mbow）/n，则对mpow从lpow-1到0执行true do；r：=r mod（10^（lpow-mpow）-1）；而r*10<10^（lpow-mpow）做r:=10*r；od；收益（r）；fi；od；lpow:=lpow+1；od；fi；结束：对于从1到60的n，执行printf（“%d%d”，n，A036275号（n） ）；od#R.J.马塔尔2006年10月19日
数学
fc[n_]：=块[{q=RealDigits[1/n][[1，-1]]}，如果[IntegerQ[q]，0，While[First[q]==0，q=RotateLeft[q]]；从数字[q]]]；
表[fc[n]，{n，36}](*雷·钱德勒，2014年11月19日，2017年6月27日修正*）
表[FromDigits[FindTransientRepeat[RealDigits[1/n，101120][[1]]，3][[2]]]，{n，40}]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2019年3月12日*）
扩展
修正了a（92）、a（208）、a、a（248）、a和a（328），其中a（352）和a（488）缺少尾随零（见表）-菲利普·古列尔梅蒂2017年6月20日
搜索在0.004秒内完成
| 