%I#79 2023年2月3日16:25:28

%编号：11,43,41208920812087，

%电话：108890357414700030830827987437816582768679，

%电话：108890357414700030830827987437816582768647

%N Prime Maze Room 11，与A059459对应，从Prime Room 11开始。

%这是A059459的相反奇偶校验序列，也是这个序列的最小字典序。

%目前还不知道这两个序列是否都是无限的。

%C我能计算出40项；a（40）是3261位素数。

%Ca（1）=11；a（n+1）是通过将a（n）写入二进制并尝试仅对一位进行补码而获得的，从最低有效位开始，直到达到新的素数。（第2项和第3项是主序列中排除的值。）

%C推测：房间2和房间11没有链接，即两个单独的迷宫或树枝/树，因为它们是相对的部分。

%H Gregory Allen，n表，n=1..40的a（n）</a>

%H William Paulsen，<a href=“http://myweb.astate.edu/wpaulsen/primemaze/pmaze.html“>Prime Maze，见Prime room 11。

%H Carlos Rivera，<a href=“http://www.primepuzzles.net/problems/prob_025.htm“>问题25。威廉·保尔森的素数迷宫，素数困惑与问题联系。

%t maxBits=2^14；

%t全部清除[a]；

%ta[1]=3；

%ta[2]=2；

%ta[3]=11；

%t n=4；

%t a[n]：=

%t a[n]=如果[PrimeQ[a[n-1]，

%t位=PadLeft[IntegerDigits[a[n-1]，2]，maxBits]；

%t对于[i=1，i<=maxBits，i++，bits2=bits；

%t位2[[-i]]=1-位[[-i]]；

%t如果[i==maxBits，打印[“maxBits reached”]；中断[]，

%t如果[PrimeQ[an=FromDigits[bits2，2]]&&

%t FreeQ[表[a[k]，{k，1，n-1}]，an]，返回[an]]]，

%t 0]；表[a[n]，{n，42}]

%Y参考A059459。

%K非n，小于

%O 1,1号机组

%A _ Regory Allen_，2023年1月10日