%I#8 2019年11月11日18:43:45

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

%电话：3.12,13,2,3,6,4,2,2,5,14,3,2,15,16,17,6,5,2,18,19,20,6,3,2,21,2,3，

%U 21,18,22,23,2,5,6,24,2,25,2,3,26,5,27,23,7,7,28,2,7,29,3,6,20,30,31,5,3,32,33,2,34,35,16,2,23,2,20,36

%N词法上最早的无限序列，使得对于所有i，j，a（i）=a（j）=>A246277（A329044（i））=A246277（A329044（j））。

%C函数f（n）=A246277（A329044（n））的限制生长序列变换。

%C对于所有i，j：

%C A305800（i）=A305800，

%C a（i）=a（j）=>A329045（i）=A329045，

%C a（i）=a（j）=>A329343（i）=A329342（j），

%C a（i）=a（j）=>A329348（i）=A329349（j），

%C a（i）=a（j）=>A329349（i）=A329348（j）。

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

%H<a href=“/index/Pri#prime_indices”>根据素因式分解中的索引计算出的序列的索引项</a>

%H<a href=“/index/Pri#primorialbase”>与primorial base相关序列的索引条目</a>

%H<a href=“/index/Pri#primorial_numbers”>为与基本数相关的序列索引条目</a>

%o（PARI）

%o up_to=1024；

%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 A034386（n）=prod（i=1，素数pi（n），素数（i））；

%o A108951（n）={my（f=系数（n））；prod（i=1，#f~，A034386（f[i，1]）^f[i、2]）}；\\来自A108951

%o A276086（n）={my（m=1，p=2）；while（n，m*=（p^（n%p））；n=n\p；p=下一素数（1+p）；（m）；}；

%o A324886（n）=A276086（A108951（n））；

%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 A329044（n）=A064989（A324886（n））；

%o A246277（n）=如果（1==n，0，my（f=系数（n），k=素数（f[1,1]）-1）；对于（i=1，#f~，f[i，1]=素数（素数pi（f[i），1]）-k）；因子返回（f）/2）；

%o v329345=rgs_transform（向量（up_to，n，A246277（A329044（n）））；

%o A329345（n）=v329345【n】；

%Y参见A034386、A064989、A108951、A246277、A276086、A305800、A324886、A329044、A329045、A329343、A32934、A32939。

%Y另请参阅A329048。

%K nonn公司

%O 1,2号机组

%A _Antti Karttunen，2019年11月11日