%I#17 2019年4月3日15:07:08

%S 3,5,7,13,11,17,29,23,31,41,37,53,61,43,47,97113,73101,67,83107,71，

%电话127193233197229181173131163227251199167151223257449，

%电话：353337433409313421277373269461349509307331491283443

%A098957中的N引物。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%H Eric Weistein的《数学世界》，<a href=“http://mathworld.wolfram.com/GrayCode.html“>灰色代码</a>

%p brev:=proc（n）局部L；

%p L：=换算（n，基数，2）；

%p加（L[-i]*2^（i-1），i=1..nops（L））

%p端程序：

%p选择（i素数，[seq（brev（ithprime（i）），i=1..100）]）；#_罗伯特·伊斯雷尔，2019年4月3日

%t灰度代码列表[k_]：=模块[{b=整数位数[k，2]，i}，Do[If[b[[i-1]]==1，b[[i]]=1-b[i]]，{i，长度[b]，2，-1}]；【b】；a[n_]=灰度代码列表[Prime[n]]；a0=表[总和[a[n][[m+1]]*2^m，{m，0，长度[a[n]]-1}]，{n，1，200}]；扁平[表[If[PrimeQ[a0[[n]]]，a0[n]]，{}]，{n，1，200}]]

%o（PARI）表示素数（p=2，1e3，v=二进制（p）；s=0；对于步骤（i=#v，1，-1，s+=s+v[i]）；if（isprime（s），print1（s“，”））\\_Charles R Greathouse IV_，2011年11月7日

%Y参考A098957。

%K nonn，看，基础

%O 1,1号机组

%A _Roger L.Bagula_和_Gary W.Adamson_，2008年10月21日