%I#19 2017年1月20日13:45:22

%序号1,8,24,24,861260189014136197400104676601231572090

%N词法上最早的序列，因此没有子序列和为素数。

%这个序列是单调递增的。

%C到目前为止，除了a（4）之外，该序列与A052349相同。

%e对于n＝4，a（4）＝24，因为所有子集都有非素数和：

%e 1+8=9=3^2

%e 1+24=25=5^2

%e 8+24=32=2^5

%e 24+24=48=2^4*3

%e 1+8+24=33=3*11

%e 1+24+24=49=7^2

%e 8+24+24=56=2^3*7

%e 1+8+24+24=57=3*19

%p S：={0}：计数：=0：

%p x：=1：

%当x<10^6时为p

%p如果ormap（s->isprime（s+x），s），则x:=x+1

%p其他

%p计数：=计数+1；

%p A[计数]：=x；

%p S:=S并集映射（`+`，S，x）；

%功率因数

%日期：

%p序列（A[i]，i=1..计数）；#_Robert Israel_，2017年1月20日

%t={1}；c=1；打印[1]；当[长度[t]<11时，r=静止[子集[t]]；s=表[Total[r[i]]]，{i，Length[r]}]；而[PrimeQ[c]||联合[PrimeQ[s+c]]！={错误}，c++]；打印[c]；附录[t，c]]（*_Hans Havermann_，2017年1月20日*）

%Y参考A052349。

%K nonn，难，更多

%O 1,2号机组

%A _Peter Kagey_，2017年1月7日

%E a（9）和a（10），来自_Dmitry Kamenetsky，2017年1月12日

%E a（11）摘自Hans Havermann，2017年1月20日