%I#28 2019年4月28日20:09:11

%S 0,0,00,0,1,0,0，0,0'，0,0，

%T 0,0,00,0,1,0,0，0,0'，0,0，

%U 1,0,0,00,0,1,0,0，0,0'，0,0

%N a（N）=x（y（N））-y（x（N）。

%C基于A.Fraenkel定义的混沌序列。斐波那契数决定了世代的界限。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%H Altug Alkan，<a href=“/A307721/A307721.png”>n的a（n）折线图<=28657</a>

%H A.S.Fraenkel，<A href=“https://doi.org/10.1090/S0002-9947-1994-1138949-9“>迭代地板函数，代数数，离散混沌，Beatty子序列，半群，Trans.Amer.Math.Soc.，第341卷，第2期（1994年）。

%H Rémy Sigrist，适用于A307721的C程序</a>

%px:=proc（n）选项记忆；

%p进程名（进程名（n-2））+进程名（n进程名（n-1））

%p结束过程：

%p x（1）：=1:x（2）：=1:x（3）：=1：

%py:=proc（n）选项记忆；

%p进程名（进程名（n-1））+进程名（n进程名（n-1））

%p结束过程：

%p y（1）：=1:y（2）：=1:1y（3）：=1：

%p图（x@y-y@x坐标, [$1..100]); # _罗伯特·伊斯雷尔，2019年4月25日

%tx[1]=x[2]=x[3]=y[1]=y[2]=y[3]=1；x[n]：=x[n]=x[x[n-2]+x[n-x[n-1]]；y[n]：=y[n]=y[y[n-1]]+y[n-y[n-1]]；a[n]：=x[y[n]]-y[x[n]]；阵列[a，100]（*Giovanni Resta_，2019年4月24日*）

%o（PARI）x=矢量（200）；对于（n=1,3，x[n]=1）；对于（n=4，#x，x[n]=x[x[n-2]]+x[n-x[n-1]]）；y=矢量（200）；对于（n=1,3，y[n]=1）；对于（n=4，#y，y[n]=y[y[n-1]]+y[n-y[n-2]）；向量（200，n，x[y[n]]-y[x[n]]）

%o（C）见链接部分。

%Y参考A005350，A302128。

%K符号

%O 1号机组

%A Altug Alkan，2019年4月24日