%I#16 2013年2月22日21:38:11

%S 1,2,6,12,21,37,58,841121291732132663073446513589639829，

%电话：916106112091297142914611626178319642202576265328753064，

%电话：330736053889422843324412465853518518647628167117017388

%N a（1）=1；对于n>1，a（n）=最小数>a（n-1），使得不同元素的成对和和（绝对）差都是不同的。

%H Klaus Brockhaus，n的表格，n=1..2000的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/B2-Sequence.html“>B2-序列</a>

%B_2序列的索引项</a>

%e a（1）=1，a（2）=2；n=3:k=3，k-a（2）=1=a（2）-a（1），则a（3）>3；k=4:k-a（1）=3=a（1”）+a（2），则a（3）>4；k=5:k-a（2）=3=a（1）+a（2；k=6:k-a（1）=5，k-a（2）=4，k+a（1。

%o（PARI）{m=48；u=[]；s=Set（）；k=0；对于（n=1，m，b=1；而（b，b=0；k++；j=0；而（！b&&j<#u，j++；if；if（setsearch（s，k-u[j]）||Set search）；s=setunion（s，Set（concat（v，w）））；u=concat[u，k）]}/*Klaus Brockhaus，2007年9月5日*/

%o（哈斯克尔）

%o导入数据。列表（相交）

%o a126428 n=a126428_列表！！（n-1）

%o a126428_list=魔法1[][]其中

%o魔法：：Integer->[Integer]->[Intiger]->[Cinteger]

%o魔法n毫秒测试

%o|tests`intersect`nMinus==[]&&tests` intersect` nPlus==[]

%o=n:magics（n+1）（n:ms）（nMinus++nPlus++测试）

%o |否则

%o=魔法（n+1）ms测试

%o其中nMinus=映射（n-）ms

%o nPlus=映射（n+）ms

%o——magics是004210_list的生成器，cf.a004210，magic integers。

%o--_Reinhard Zumkeller，2011年3月3日

%Y参见A005282（Mian-Chowla序列）。

%K nonn公司

%O 1,2号机组

%A Philippe Lallouet（philip.Lallouet，AT）wanadoo.fr），2007年3月11日，2007年7月27日

%E由Klaus Brockhaus编辑和扩展，2007年9月5日