%I#18 2022年2月26日10:48:13

%S 0,0,3,0,6,1,4,2,8,5,7,0,1,0,0,19,3,,0,7,6,9,2,3,7,14,2,5,6,0,5，

%时间8,8,2,3,5,2,9,4,1,7,6,4,5,0,5,2,6,3,1,5,7,8,9,4,7,3,6,8,4,2,1,0，

%U 0,4,7,6,1,9,4,5,0,4,1,3,4,7，8,2,6,0,8,6,9,5,2,1,7,3,9,1,3

%N表格，其中第N行列出小数展开式1/N周期部分的数字。

%C第n行的长度为A007732（n）_T.D.Noe_，2008年5月14日

%C惯例是显示最早的周期_T.D.Noe_，2008年5月14日

%D Conway和Guy，《数字之书》，第160页

%H T.D.Noe，<a href=“/A0489962/b048962.txt”>行n=1..100，扁平</a>

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

%e 1/1=1。->0; 1/2=.5 ->0; 1/3=.3333... -> 3; 1/4=.25 -> 0; 1/5=.2 ->0; 1/6=.1666... -> 6; 1/7=.142857... -> 1 4 2 8 5 7; 等。

%e三角形开始：

%e 0；

%e 0；

%e 3；

%e 0；

%e0；

%e 6；

%e 1,4,2,8,5,7；

%e 0；

%e 1；

%e 0；

%e 0,9；

%e 3；

%e 0,7,6,9,2,3；

%e第7、1、4、2、8、5节；

%e 6；

%e 0；

%e。。。

%t nmax=50；

%t行[n_]：=开关[FactorInteger[n]，{{2，_}}|{{5，_}{|{2，e_}，{5，d_}}，}{0}，_，rd=RealDigits[n[1+1/n，10nmax]]；FindTransientRepeat[rd[[1]]//休息，2][2]]]；

%t行/@Range[nmax]//Flatten（*Jean-François Alcover_，2019年12月4日*）

%Y参见A048997、A048963。

%K nonn，base，easy，tabf，漂亮

%氧1,3

%A _N.J.A.斯隆_