小于等于3400；使用[{tps=Union[Flatten[Select[Partition[Prime[Range[PrimePi[upto]]]，2，1]，Last[#]-First[#]==2&]]}，选择[Union[Table[Total/@Partition[tps，n，1]、{n，2，40}]]，MemberQ[tps、#]&#<=upto&]](*发件人 _哈维·P·戴尔, _, 2011年9月25日*）

_弗拉基米尔约瑟夫 斯蒂芬 尔洛夫斯基 (4vladimir公司(在)gmail公司.通用域名格式), _, 2009年3月25日

编辑

经核准的

小于等于3400；使用[{tps=Union[Flatten[Select[Partition[Prime[Range[PrimePi[upto]]]，2，1]，Last[#]-First[#]==2&]]}，Select[Union[Table[Total/@Partition[tps，n，1]、{n，2，40}]]，MemberQ[tps、#]&#<=upto&]]（*摘自Harvey P.Dale，2011年9月25日*）

经核准的

编辑

礼貌的质数。

31, 41, 101, 109, 137, 191, 193, 239, 283, 311, 313, 569, 641, 659, 661, 821, 1091, 1153, 1289, 1291, 1301, 1303, 1319, 1429, 1453, 1619, 1667, 1877, 2027, 2081, 2129, 2239, 2309, 2341, 2381, 2591, 2593, 2711, 2713, 2971, 3001, 3121, 3253, 3299, 3301

1,1

礼貌质数是双质数，可以写成两个或多个连续双质数的和。7+11+13=31,11+13+17=41,..

lst={}；Do[pp=质数[m]；如果[PrimeQ[pp-2]||PrimeQ[pp+2]，k=1；Do[k++；p=素数[n]；如果[PrimeQ[p-2]||PrimeQ[p+2]，pp+=p；如果[PrimeQ[pp]，如果[PrimeQ[pp-2]||PrimeQ[pp+2]，AppendTo[lst，pp]]]，{n，m+1，4*6！}]]；第一阶段；（*礼貌质数。*）取[Union[lst]，5！]

囊性纤维变性。A138591号,A065867号

非n

弗拉基米尔·奥尔洛夫斯基（4vladimir（AT）gmail.com），2009年3月25日

经核准的