%I#8 2018年11月6日12:45:55

%S 3,4,5,6,8,10,12,13,14,16,17,19,20,23,25,26,27,30,31,32,35,36,37,38，

%电话：39、41、44、46、47、48、49、50、52、54、55、56、57、58、60、62、64、66、67、68、70、71、72，

%U 73,75,78,80,82,84,85,86,88,89,92,94,96,98,99100102103单位

%N近互补方程a（N）=a（1）*b（N-1）-a（0）*b。请参见注释。

%C由方程式a（n）=a（1）*b（n-1）-a（0）*b；例如a（18）=a（19）=51。如果从（a（n））中去除重复，则得到的序列和（b（n））是互补的。推测：

%C（1）1<=b（k）-b（k-1）<=3，对于k>=1；

%C（2）如果d在{1,2,3}中，则b（k）=b（k-1）+d表示无穷多k。

%C类***

%C相关序列指南见A297830。

%H Clark Kimberling，n的表，a（n）表示n=0..10000</a>

%e a（0）=1，a（1）=2，b（0）=3，b（1）=4，因此a（2）=7。

%e补语：（b（n））=（3，4，5，6，8，10，12，13，14，16，…）

%t mex[list_，start_]：=（NestWhile[#+1&，start，MemberQ[list，#]&]）；

%tbl={}；a[0]=1；a[1]=2；b[0]=3；b[1]=4；

%ta[n]：=a[n]=a[1]*b[n-1]-a[0]*b[2]+n；

%t b[n]：=b[n]=mex[tbl=Join[｛a[n]，a[n-1]，b[n-1]}，tbl]，b[n-1]]；

%t表[a[n]，{n，0，300}]（*A297826*）

%t表[b[n]，{n，0，300}]（*A297997*）

%t（*_彼得·莫塞斯，2017年1月3日*）

%Y参见A297997、A297830。

%K nonn，简单

%0、1

%A_Clark Kimberling_，2018年2月4日