%I#11 2018年8月18日05:23:30

%S 1,0，-1,0,1,0,1.0，-3，-2，-3，-2，-1,0，-1,1,0,5,4,4,5,2,1,2,3,3,0,1,1,0，

%T 0，-11，-10，-11，

%U-1、-2、-5、-4、-5、-40、-4、-1.0、-1.0，-1,0、-1,0,21,20,20,21,20、21,16,15,15,16,19,20,19,20

%N设b（1）=b（2）=1；对于n>=3，b（n）=n-b（t（n））-b（n-t（n-1）），其中t=A004001。a（n）=2*b（n）-n。

%H Altug Alkan，n的表，n的a（n）=1..32768</a>

%H Altug Alkan，n的a（n）线图</a>

%p t:=proc（n）选项记忆`如果`（n<3，1，

%p t（t（n-1））+t（n-t（n-l））

%p端：

%p b:=proc（n）选项记忆`如果`（n<3，1，

%pn-b（t（n））-b（n-t（n-1））

%p端：

%p序列（2*b（n）-n，n=1..100）；#在A317686航站楼_Alois P.Heinz之后

%tt[1]=t[2]=1；t[n]：=t[n]=t[t[n-1]]+t[n-t[n-1]]；b[1]=b[2]=1；b[n]：=b[n]=n-b[t[n]]-b[n-t[n-1]]；a[n]：=2*b[n]-n；阵列[a，95]（*位于Giovanni Resta_ A317854*之后）

%o（PARI）t=矢量（99）；t[1]＝t[2]＝1；对于（n=3，#t，t[n]=t[n-t[n-1]]+t[t[n-1]]）；b=矢量（99）；b[1]=b[2]=1；对于（n=3，#b，b[n]=n-b[t[n]]-b[n-t[n-1]]）；向量（99，k，2*b[k]-k）

%Y参见A004001、A317754、A317854。

%K符号，看

%O 1,9型

%A Altug Alkan，2018年8月14日