%I#63 2021年2月12日18:15:57

%S 0,0,3,0,0,142857,0,1,0,90,3769230714285,6,05882352941176470,5，

%电话：526315789473684210,0476190,454347826086956521739130，6,0384615370，

%电话：5714283448275862068965517241379310、3322580645161290、302941176470588235285714、7

%N 1/N十进制展开式的周期部分。任何初始0都应置于循环末尾。

%当n=2^i*5^j（A003592）时，C a（n）=0_乔恩·佩里（Jon Perry），2014年11月19日

%如果n=3或6，C a（n）=n（参见De Koninck&Mercier参考）_Bernard Schott，2020年12月2日

%D Jean-Marie De Koninck和Armel Mercier，1001 Problèmes en Théorie Classique des Nombres，Probléme 347，第50和205页，Ellipses，巴黎，2004年。

%H Philippe Guglielmetti，<a href=“/A036275/b036275.txt”>n，a（n）表，n=1..1001</a>（T.D.Noe的前500个术语）

%H<a href=“/index/1#1overn”>与1/n的十进制展开式相关的序列的索引项</a>

%e 1/28=.035714285714285714285714285.7142857128571428571…数字周期为571428，因此a（28）=571428。

%p is循环：=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.Mathar，2006年10月19日

%t fc[n_]：=块[{q=RealDigits[1/n][[1，-1]]}，如果[IntegerQ[q]，0，While[First[q]==0，q=RotateLeft[q]]；从数字[q]]]；

%t表[fc[n]，{n，36}]（*雷·钱德勒，2014年11月19日，2017年6月27日更正*）

%t表[FromDigits[FindTransientRepeat[RealDigits[1/n，10120][[1]，3][2]，{n，40}]（*需要Mathematica版本10或更高版本*）（*Harvey P.Dale_，2019年3月12日*）

%Y参见A007732、A051626、A002371、A048595、A006883、A007498、A007615、A040017、A05162。

%Y另见A060282、A060283、A060251。

%Y A051628是前导码的长度。

%K基础，nonn，简单，好

%氧1,3

%A _弗洛尔·范·拉蒙_

%E由N.J.A.Sloane修正和扩展_

%E修正了遗漏尾随零的a（92）、a（208）、a_菲利普·古列尔梅蒂（Philippe Guglielmetti），2017年6月20日