%I#12 2022年5月20日23:04:30

%S 1,2,2,3,2,4,2,5,6,4,2,7,2,44,4,8,2,9,2,10,4,11,2,12,13,4,5,9,2,14,2，

%电话：15,4,4,16,2,4,11,12,2,17,2,10,9,4,2,18,19,20,4,10,2,21,4,2，

%U 22,2,11,10,23,4,17,2,7,11,17,2,24,2,4,9,10,11,14,2,18,25,26,2,22,4,1,12,22,11,10,4,11,27,2,28,9,29,2,17,2,21,14

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

%C有序对的限制生长序列变换[A046523（n），A296091（n）]。

%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写入to_b文件（start_offset，vec，bfilename）={对于（n=1，长度（vec），写入（bfilename，（n+start_offset）-1，“”，vec[n]）；}

%o A046523（n）={my（f=vecsort（factor（n）[，2]，4），p）；prod（i=1，#f，（p=nextprime（p+1））^f[i]）；}；\\来自A046523

%o A296091（n）=如果（1==n，n，A046523（σ（n）-1））；

%o Aux300223（n）=（1/2）*（2+（（A046523（n；

%o v300223=rgs_transform（向量（up_to，n，Aux300223（n）））；

%o A300223（n）=v300223【n】；

%Y参考A046523，A296091。

%Y另请参阅A305800、A296090、A300224、A300225。

%K nonn公司

%O 1,2号机组

%2018年3月1日，安蒂·卡图内

%E名称由_Antti Karttunen_更改，2022年5月20日