%I#51 2021年7月9日22:15:15

%S 1,2,4,7,11,13,14,22,26,28,31,47,55,59,61,62,94110118122124127，

%电话：191223239247251253254382446478494945402506508511767895，

%电话：95999110071510191021102215341790191819822014203020382042

%N a（1）=1，对于N>1，a（N）是最小数>a（N-1），使得汉明距离D（a（N-1），a（N））=2。

%C对于整数a，b，用a<+>b表示最小C>=a，这样D（a，C）=b（注意，一般来说，a<+>b与b<+>a不同）。则a（n+1）=a（n）<+>2。因此，这个序列是奇数1，3，5，…的汉明模拟，。。。

%非负整数的汉明模拟是A000225，三角数的汉明类似是A000975。

%C所有条款都令人讨厌（A000069）。

%H Alois P.Heinz，n的表格，n=1..1000时的a（n）</a>

%p读取（“转换”）；

%p汉明：=程序（a，b）

%p异或数（a，b）；

%pwt（%）；

%p端程序：

%p Dplus:=程序（a，b）

%p代表c从a到1000000 do

%p如果Hamming（a，c）=b，则

%p返回c；

%p end if；

%p端do：

%p返回-1；

%p端程序：

%p A206853:=程序（n）

%p选项记忆；

%p如果n=1，则

%第1页；

%p其他

%p Dplus（进程名（n-1），2）；

%p end if；

%结束程序：#R.J.Mathar_，2012年4月5日

%t myHammingDistance[n_，m_]：=模块[{g=最大[m，n]，h=最小[m，n]}，b1=整数位数[g，2]；b2=整数位数[h，2，长度[b1]]；汉明距离[b1，b2]]；t={1}；Do[If[myHammingDistance[t[[-1]]，n]==2，AppendTo[t，n]]，{n，2，2042}]；t（*t.D.Noe_，2012年3月7日*）

%t={x=1}；执行[i=x+1；同时[Count[Integer Digits[BitX或[x，i]，2]，1]=2，i++]；附加到[t，x=i]，{n，53}]；t（*Jayanta Basu，2013年5月26日*）

%o（PARI）next_A206853（n）={my（b=二进制（n））；直到（normal2（二进制（n

%o打印1（n=1）；对于（i=1,99，print1（“，”n=next_A206853（n）））\\_M.F.Hasler_，2012年4月7日

%Y参考A182187（n<+>2），A207063（从0开始）。

%Y参见A000225、A205509、A205510、A205511、A205302、A20.5649、A20.5533、A122565、A206852、A000069。

%K nonn，基础

%O 1、2

%2012年2月13日，A_Vladimir Shevelev