%I#13 2016年12月12日09:06:44

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

%电话：15,16,17,16,18,19,17,18,20,21,19,22,23,20,22,24,25,23,26,27,24,25，

%U 28,29,26,30,31,27,28,29:30,31,32,33,32,34,35,33,34,37,35,38,39,36,37,38,40,41,39,42,43,40,44,45,42

%N互补序列A005187或A055938中N的位置：a（N）=A213714（N）+A234017（N）。

%换句话说，如果n=A005187（k）对于某些k>=1，则a（n）=k，否则n=A055938（h）对于某些h，则a。

%C每个n正好出现两次，首先出现在a（A005187（n）），然后出现在a中（A055938（n）。另请参阅A257126。

%C当迭代a（n）、a（a（n。

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

%F a（n）=A213714（n）+A234017（n）。

%F a（n）=A256991（n）+A0779559（n）。

%F如果A079559（n）=1，则a（n）=A213714（n），否则a（n）=A234017（n）。

%t使用[{nn=92}，函数[{g，h}，展平@Table[If[MemberQ[g，n]，First@Position[g，n]-1，First@Position[h，n]]，{n，Min[Length/@{g，h}]@@{Table[2 n-DigitCount[2n，2，1]，{n，0，nn}]，Complement[Range@Last@#，#]&@Table[Integer Exponent[（2 n）！，2]，{n、0、nn}]}]（*_Mich ael De Vlieger_，2016年12月12日，在Harvey P.之后。Dale_在A005187，_Jean-François Alcover_在A055938*）

%o（方案）

%o（定义（A256992 n）（+（A213714 n）（A234017 n））

%o（定义（A256992 n）（如果（不是（零？（A079559 n）））（A213714 n）（A234017 n））

%Y参见A005187、A055938、A079559、A213714、A234017。

%Y另请参阅A256991（变体）、A256993、A257126。

%K nonn公司

%氧1,3

%2015年4月15日，安蒂·卡图宁