%I#5 2018年11月22日18:17:05

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

%温度5,7,3,3,5,7,1,5,5,6,5,4,5,3,6,6,7,5,3，10,3,7,11,5,3，

%U 5,5,5,12,3,3,7,5,5A,3,9,8,3,3,10,5,3,5,7,3,6,5,4,5,2,5,13,4,7,2,5,3,10

%N函数f:f（1）=0，f（N）=A046523（A252463（N））的限制生长序列变换，对于N>1。

%C对于所有i，j:a（i）=a（j）=>A320111（i）=A320111。

%H Antti Karttunen，n表，n=1..65537的a（n）</a>

%o（PARI）

%o up_to=65537；

%o rgs_transform（invec）={my（om=Map（），outvec=vector（length（invec）），u=1）；对于（i=1，长度（invesc），如果（mapisdefined（om，invec[i]），my（pp=mapget（om，invec[i]；

%o A046523（n）=｛my（f=vecsort（因子（n）[，2]，4），p）；prod（i=1，#f，（p=nextprime（p+1））^f[i]）；｝；\\来自A046523

%o A064989（n）={my（f）；f=因子（n）；如果（n>1&&f[1,1]==2），f[1,2]=0）；对于（i=1，#f~，f[i，1]=前一素数（f[i、1]-1））；因子回退（f）}；

%o A252463（n）=如果（！（n%2），n/2，A064989（n））；

%o A320110aux（n）=如果（1==n，0，A046523（A252463（n）））；

%o v320110=rgs_transform（向量（up_to，n，A320110aux（n）））；

%o A320110（n）=v320110【n】；

%Y参见A046523、A252463、A320111。

%K nonn公司

%O 1,2号机组

%2018年11月22日，安蒂·卡图内