%I#21 2018年1月28日17:38:19

%S 3,7,12,24,28,31,51,56,96,9910311512412719920422427231248，

%电话：384387396408412415455460499508775792796799819824896，

%电话：8999089220924927992995991016153915481587159216321635163916511660

%N对m进行编号，使得m的以2为基数的所有数列长度都是素数。

%C A226227和A226228的交叉口。

%C From _Emeric Deutsch_，2018年1月27日：（开始）

%C也指只有质数部分的成分指数。成分指数的定义见A298644。例如，387是在序列中，因为它的二进制形式是110000011，组成[2,5,2]的部分是质数。540不在序列中，因为它的二进制形式是1000011100，并且不是组成[1,4,3,2]的所有部分都是质数。

%C来自Maple程序的命令C（n）生成索引为n的合成（End）

%H Reinhard Zumkeller，n的表，n=1..1000的a（n）</a>

%p运行：=proc（L）local j，r，i，k:npr:j:=1；r[j]：=L[1]：对于i从2到nop（L）do，如果L[i]=L[i-1]，那么r[j]:=r[j'，L[i]else j:=j+1:r[j]：=L[i]end if end do:[seq（[r[k]]，k=1..j）]end proc:运行长度：=proc（L）map（nops，Runs（L）））end proc:=proc（n）ListTools:Reverse（convert（n，base，2）））：运行长度（%）结束进程：npr：=进程局部q，j:q:=0：对于j到nopdo if isprime（s[j]）=true则q:=q+1 else end if end do end proc:A:={}：对于n到1661 do如果npr（c（n））=nops（c（n））则A:=`union`（A，{n}）else end-if end do:A；#枫叶计划的大部分是由于_W.Edwin Clark_.#_Emeric Deutsch_，2018年1月27日

%t选择[范围@1660，和@@PrimeQ[Length/@Split@Integer Digits[#，2]和]（*_Giovanni Resta_，2013年6月1日*）

%o（哈斯克尔）

%o导入数据。列表（group，genericLength）

%o a226229 n=a226229_列表！！（n-1）

%o a226229_list=过滤器

%o（所有（==1）。地图（a010051.genericLength）。组。a030308_低）[1..]

%o——Reinhard Zumkeller，2013年6月5日

%Y参考A033015、A226227和A226228。

%Y参考A005811、A030308、A010051。

%K nonn，基础

%O 1,1号机组

%阿列克斯·拉图什尼亚克，2013年5月31日