%I#8 2020年6月9日07:24:27

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

%电话：2,18,19,20,21,22,2,23,24,25,2,26,2,27,28,29,2,30,2,31,32,33,24,35，

%U 36,37,38,2,39,2,40,41,6,42,43,2,44,45,46,2,47,2,48,49,50,51,52,53,2,54,2,55,56,57,58,59,2,60,61,62,63,64,65,66,267,68,8,2,69,2,70,71

%N词法上最早的无限序列，使得a（i）=a（j）=>f（i）=f（j）对于所有i，j>=1，其中f（1）=0，对于N>1，如果N在A050376中，f（N）=-1，否则f（N）=A334870（N）。

%C对于所有i，j:A305979（i）=A30597九（j）=>a（i）=a（j）=>A334872（i）=3334872（j）。

%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，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 ispow2（n）=（n位和（n，n-1））；

%o A302777（n）=ispow2（isprimepower（n））；

%o A334870（n）=如果（issquare（n），sqrtint（n）），my（c=芯（n）、m=n）；对于素数（p=2，如果（！（c%p），m/=p；断裂，m*=p））；（m） ）；

%o A334868aux（n）=如果（1==n，0，如果（A302777（n），-1，A334870（n）））；

%o v334868=rgs_transform（向量（up_to，n，A334868aux（n）））；

%o A334868（n）=v334868【n】；

%Y参考A050376（2的位置）、A305979、A334869、A334.870、A334872。

%K nonn公司

%O 1,2号机组

%2020年6月8日，安蒂·卡图宁