|
最大比特数=2^14；
全部清除[a]；
a[1]=3；
a[2]=2；
a[3]=11；
n=4；
a[n]：=
a[n]=如果[PrimeQ[a[n-1]]，
bits=PadLeft[IntegerDigits[a[n-1]，2]，maxBits]；
对于[i=1，i<=maxBits，i++，bits2=bits；
位2[[-i]]=1-位[[-i]]；
如果[i==maxBits，打印[“maxBits reached”]；中断[]，
如果[PrimeQ[an=FromDigits[bits2，2]]&&
FreeQ[表[a[k]，{k，1，n-1}]，an]，返回[an]]]，
0]; 表[a[n]，{n，42}]
| 