%I#7 2018年6月1日21:41:33

%S 1,2,3,3,4,5,2,6,7,8,9,1,3,2,8,2,10,11,2,12,13,14,2,4,15,16,7,17,18，

%电话：8,1,19,20,21,22,3,23,16,2,24,25,26,27,3,28,2,29,7,30,28,30,31,32,33，

%U 2,34,31,20,18,17,16,2,8,35,36,37,38,39,8,40,41,42,43,44,31,45,16,46,47,48,49,50,51,4,52,53,4,1,54,15,3

%A305295（N）的N限制生长序列变换，由A245612（N）三元表示中的1位数字构成。

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

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

%o（PARI）

%o A003961（n）=我的（f=系数（n））；对于（i=1，#f~，f[i，1]=下一素数（f[i、1]+1））；factorback（f）；\\来自A003961

%o A048673（n）=（A003961（n）+1）/2；

%o A254049（n）=A048673（2*n）-1）；

%o A245612（n）=如果（n<2,1+n，如果（；

%o A289813（n）={my（d=数字（n，3））；从数字（向量（#d，i，如果（d[i]==1，1，0）），2）；}\\从A289812

%o A305295（n）=A289813（A245612（n））；

%o rgs_transform（invec）={my（om=Map（），outvec=vector（length（invec）），u=1）；对于（i=1，length（invec），if（mapisdefined（om，invec[i]），my（pp=mapget（om，invec[i]））；outvec[i]=outvec[pp]，mapput（om，invec[i]，i）；outvec[i]=u；u++）；outvec；}；

%o v305296=rgs_transform（矢量（65538，n，A305295（n-1）））；

%o A305296（n）=v305296[1+n]；

%Y参见A245612、A289813、A305295、A305431。

%Y另请参阅A305297、A305298。

%Y另请参阅A304758、A304740。

%K nonn公司

%0、2

%A _Antti Karttunen，2018年5月31日