%我#7 2019年2月10日23:05:55

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

%电话23,24,25,1,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44，

%U 45,46,35,47,48,49,50,51,52,53,54,55,1,56,57,58,8,59,60,61,62,63,64,65,66,67,68,69,70,71,47,72,73,74,75,76,77,78,79,80,31,81

%N词汇学上最早的序列，使得a（i）=a（j）=>A002487（i）=A002487j）和A033879i=A033879（j），对于所有i，j>=1。

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

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

%H<a href=“/index/St#Stern”>与Stern序列相关的序列的索引项</a>

%对于所有n>=0，F a（2^n）=1。

%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 A002487（n）={my（a=1，b=0）；while（n>0，if（bitand（n，1），b+=a，a+=b）；n>>=1）；（b）；}；\\来自A002487

%o A033879（n）=（2*n-西格玛（n））；

%o A323892aux（n）=[A002487（n），A033879（n）]；

%o v323892=rgs_transform（向量（up_to，n，A323892aux（n）））；

%o A323892（n）=v323892【n】；

%Y参见A002487、A033879。

%Y另请参阅A318310、A323889。

%K nonn公司

%氧1,3

%2019年2月9日，安提·卡图内