%I#47 2022年9月30日14:38:16

%S 1,2,1,3,1,4,1,2,1,5,1,6,1,2,1,3,1,7,1,2,1,8,1,4,1,2,3,1,9,1,2,10,10，

%T 1,5,1,2,1,3,1,11,1,2,1,4,12,1,2,1,3,1,6,1,2,13,1,14,1,2,1,3,1,4，

%U 1,2,1,5,1,7,1,2,1,3,15,1,2,16,4,1,2,1,3,1,8,1,2,1,6,1,5,1,2,1,3,17,1

%N赢得单人纸牌Tchoukaillon（或Mancala）的坑收割顺序。

%C From _Benoit Cloitre_，2007年3月9日：（开始）

%C序列可以用括号构造如下（NP表示“术语不在括号中”）：

%C从正整数开始：

%C 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22，。。。

%C第1步：将最少的NP“1”放在括号内，每2个术语给出：

%C（1）、2、（3）、4、（5）、6、（7）、8、（9）、10、（11）、12、（13）、14、（15）、16、（17）、18、（19），。。。

%C第2步：将最少的NP“2”放在2个括号内，每3个NP给出：

%C（1）、（2）、（3）、4、（5）、6、（7）、（8）、（9）、10、（11）、12、（13）、（14）、（15）、16、（17），。。。

%C使两个连续（（x））之间有2个NP。

%C第3步：将最少的NP“4”放在3个括号中，每4个NP给出：

%C（1），（2），（3），（4），（5），6，（7），（8），（9），10，（11），12，（13），（14），（15），（16），。。。

%C，使两个连续（（x））之间有3个NP。

%C第4步：将最少的NP“6”放在4个括号中，每5个NP给出：

%C（1），（2），（3），（4），（5），（6），（7），（8），（9），10，（11），12，（13），（14），（15），（16），。。。

%C使两个连续（（（（x）））之间有4个NP。

%C无限期迭代该过程将产生：

%C（1），（2），（3），（4），（5），（6），（7），（8），（9），（10））），（11），。。。

%C数一数括号：

%C 1,2,1,3,1,4,1,2,1,5,1，…-这是序列。

%C（结束）

%C From _Benoit Cloitre_，2007年7月26日：（开始）

%C构造序列的一种简单方法：从

%C1，_，1，_，1,_，1，。。。式中，1以一个孔隔开；

%C用2填充第一个孔，并在两个2之间留出2个孔

%C 1,2,1，_，1，_，。。。；

%C用3填充新的第一个孔，并在两个3之间留出3个孔

%C 1,2,1,3,1、_、1,2,1、_、1、_，1,2,1,3。。。；

%C无限期地迭代该过程会生成序列。

%C（结束）

%C A130747的顺序转换_Benoit Cloitre_，2007年8月3日

%C虽然该序列和A130747不是分形序列（根据Kimberling的定义），但我们说它们是“互分形序列”，因为一个序列的序数变换给出了另一个序列_Benoit Cloitre_，2007年8月3日

%C a（n）=k的最小n约为k^2/Pi。

%C元素n>=0出现在该序列中，极限密度为1/（n*（n+1））。

%H L.K.Mitchell，<a href=“/A028920/b028920.txt”>n，a（n）表，n=0..3280</a>

%H Franklin T.Adams Watters，<a href=“/A002260/A002260.txt”>双重分形序列和序数变换</a>

%H.D.M.Broline和Daniel E.Loeb，<a href=“https://arxiv.org/abs/math/9502225“>Mancala-Type游戏的组合学：Ayo，Tchoukaillon和1/Pi</a>，arXiv:math/9502225[math.CO]，1995；J.本科生数学应用，第16卷（1995），第21-36页。

%H N.J.A.斯隆，<A href=“http://neilsloane.com/doc/sg.txt“>我最喜欢的整数序列</a>，在sequences and their Applications（Proceedings of SETA'98）中。

%H<a href=“/index/Si#sieve”>筛子生成序列的索引条目</a>

%F a（2n+1）=1+A104706（n+1），a（2n）=1.-_Benoit Cloitre_，2007年3月9日

%F A007952筛在第a（n）道次中处理n。a（A007952n）=n+1。

%t n=15；折叠[If[长度@位置[#1，0]>0，ReplacePart[#1，First/@Partition[位置[#1、0]，#2+1，#2+1,{1，1}]->#2]，#1]&，扁平@阵列[{1，0}&，n]，范围[2，2n]]（*Birkas Gyorgy_，2011年2月26日*）

%o（C++）

%o整数A028920（整数n）{

%o表示（int m=1；；m++）{

%o如果（n%（m+1）==0）

%o返回m；

%o n=n*m/（m+1）；

%o}（o）

%o}/*_达维德·威尔逊，2010年2月25日*/

%o（PARI）a（n）={ok=0；m=1；while（！ok，if（（n%（m+1）==0），ok=1，n=n*m\（m+1

%Y参见A002491、A007952、A028931、A02893、A0289.33、A130747。

%K nonn公司

%0、2

%A·热心的W·威尔逊_

%E来自_David W.Wilson的补充意见，2010年2月25日