%I#7 2021年6月12日23:36:22

%S 0,1,1,2,3,2,3,5,7,3,4,8,12,8,4,5,10,21,13,17,5,6,13,26,22,31,18,6,7，

%电话：15,35,27,58,32,20,7,8,18,40,36,73,59,34,21,8,9,22,49,41100,74,62,35，

%U 22,9,10,24,63,50115101,76,63,36,45,10,11,27,68,641216104,77,64,87,46

%N数组A（x，y）：通过将二进制字符串A014486（x）和A014486。将反诊断列为A（0,0）、A（1,0）、B（0,1）、A。。。

%C此表由列表函数“app-to-xrt”导出，其Scheme-definition如下所示，与A085201由普通“append”函数导出的方式相同。

%如果A072772（x）=0，则F a（0，y）=y，a（x，y）=A057548（a（A072771（x），y）），否则A072764bi。

%F a（x，y）=A080300（A085211bi（A014486（x），A014486。

%o（MIT方案）（定义（A085203bi x y）（A080300（A085211bi（A014486 x）（A014486y）））

%o（定义（A085203 n）（A085205bi（A025581 n）（P002262 n））

%o（定义（A085204 n）（A085203bi（A002262 n）（A025581 n）））

%o（这里是S表达式的对应函数）：（define（app-to-xrt a b）（cond（（null？a）b）（（pair

%o（和破坏变量）：（define（app-to-xrt！a b）（cond（（null？a）b）（else（let recurse（（a）（b b）））（conc（（AND（not（pair？（car a））））

%Y转座：A085204。变体：A085201。第1行：A085225，第1列：A057548。

%Y另请参见A014486、A080300、A025581、A002262。

%K nonn，表

%0、4

%A _安蒂·卡图宁_ 2003年6月23日