#A224762和A224763#计算长度为n的数组或列表a的分数卷曲数。fcn：=进程（a，n）本地sw1，sw2，swt1，i1，i2，tmax，k，kp，lpp，lp，n1，n2，n3，t1；如果n=1，则返回（1）；fi；如果n=2，则如果a[1]=a[2]，则返回（2），否则返回（1）；fi；fi；k： =1；#n1的猜测值对于n1从n乘-1到2做#do n1sw1：=-1；#n2的猜测值对于n2从n1-1乘-1到1 do#do n2#l打印（“n1，n2”，n1，n）；#我们有P素数的匹配吗？lpp:=n-n1+1；sw2：=-1；如果lpp<=n2，则#如果lpp对于i1从1到lpp do如果a[n-i1+1]<>a[n2-i1+1]，则sw2：=1；断裂；fi；日期：#lprint（“n，n1，n2，sw2，i1”，n，nl，n2、sw2、i1）；如果sw2=-1，则#如果sw2#有P的早期版本吗？n3：=n2-lpp+1；lp:=n1-n3；#lprint（“有Pprime.n1，n2，lpp，lp的副本”，n1，n3，lpp和lp）；#得到无P素序列的最大正规卷曲数tmax:=楼层（（n1-1）/lp）；对于从0到tmax-1的t1，do#do t1如果（n1-（t1+2）*lp<1），则断开；fi；编号如果结束swt1:=-1；对于i2，从1到lp do#do i2如果a[n1-i2]<>a[n1-i2-（t1+1）*lp]，则swt1:=1；断裂；fi；od：#od i2如果swt1=1，则断开；fi；od：#od t1#现在值为kkp:=（（t1+1）*lp+lpp）/lp；#l打印（“n，n1，n2，t1，kp”，n，n1,n2，t1，kp）；k： =最大值（k，kp）；fi；编号fi开关2fi；编号fi液化石油气od：#od n2od：#od n1回报（k）；终末程序；#计算A224762/A224763的M项g： =proc（M）局部a，n；a： =阵列（1..M）；a[1]：=1；对于从2到M的n，做a[n]：=fcn（a，n-1）；日期：返回（a）；终末程序；克（61000）；