%I#40 2020年1月28日12:07:52

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

%电话：28,30,21,23,29,31,53,55,61,63,32,50,52,54,56,60,62,64106，33,35,49，

%U 51,57,59,65,67105107,34,36,38,48,58,66,68,70104108110,37,39,45,47,69,71,77,79101103109111单位

%N行读取的三角形：第N行给出了N出现在Golay-Rudin-Shapiro相关序列A020986中的位置。

%每个正整数n出现n次，所以第n行的长度为n。

%H Reinhard Zumkeller，<a href=“/A0935573/b093573.txt”>三角形的行n=1..150，扁平</a>

%H John Brillhart，Patrick Morton，<a href=“http://projecteuclid.org/euclid.ijm/1256048841“>《Summen von Rudin-Shapiroschen Koeffizienten》，（德国）《伊利诺伊州数学杂志》，第22卷（1978年），第1期，第126-148页。MR0476686（57#16245）。-_N.J.A.Sloane，2012年6月6日

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Rudin-ShapiroSequence.html“>鲁丁·夏皮罗序列</a>

%e A020986（n），对于n=0，1。。。是1,2,3,2,3,4,3,45,6。。。，所以1、2、3、4……的位置。。。为0；1, 3; 2, 4, 6; 5, 7, 13, 15; ...

%e从2017年4月23日的Seiichi Manyama开始：（开始）

%e三角形开始：

%e 0，

%e 1、3、，

%e 2、4、6、，

%e 5、7、13、15，

%e 8、12、14、16、26、，

%e 9、11、17、19、25、27、，

%e 10、18、20、22、24、28、30、，

%e 21、23、29、31、53、55、61、63、，

%e 32、50、52、54、56、60、62、64、106、，

%e第33、35、49、51、57、59、65、67、105、107页，

%e第34、36、38、48、58、66、68、70、104、108、110页，

%e。。。（结束）

%t使用[{n=16}，TakeWhile[#，Length@#2==#1&@@#&][[All，-1]]&@Transpose@{Keys@#，Lookup[#，Keys@#]}&[PositionIndex@Accumulate@Array[1-2 Mod[Length[FixedPointList[BitAnd[#，#-1]&，BitAnd[#，Quotient[#，2]]，2]&，n^2，0]-1]]//Flatten（*_Michael De Vlieger_，2020年1月25日*）

%o（哈斯克尔）

%o a093573 n k=a093573_行n！！（k-1）

%o a093573_row n=取n$elemIndices n a020986_list

%o a093573_tabl=映射a093573行[1..]

%o——Reinhard Zumkeller，2012年6月6日

%Y列k=1表示A212591。对角线k=n表示A020991。

%Y参考A020985、A020986。

%K nonn，表

%氧1,3

%A _Eric W.Weisstein，2004年4月1日

%E偏移量由Reinhard Zumkeller_2012年6月6日修正