%I#6 2012年11月12日22:18:58

%S 0,0,0,1,0,1,1,0,0，0,00,0:0,0,2,1,1,1,1,1，

%T 1,2,2,1,1,1,2,1,1,0,2,0,2,1,2,3,1,0,2,1,0,2,1,0,2,2,2,1,2,1,2,2,1,2,1,2,2,1,2,1,0,1，

%U 0,2,1,2,1,1,1,1,2,2,2,1,1,2,1,2,2,1,2,1,1,2,2,1,2,1,2,1,1,2,2,2,2,2,2,2,0,1,3,1,0

%N个素数对{p，q}，其中p>q和p-2，q+2也素数，使得p+（1+mod（-N，6））q＝N，如果N不与2 mod 6全等，并且p-q＝N并且q＜N/2，如果N＝2（mod 6）。

%C猜想：a（n）>0表示所有n>30000，n与38451、46441、50671、62371不同。

%这个猜想比孪生素数猜想强。这与A219055关于性感素对的推测相似。

%孙志伟，n的表，n的a（n）=1..100000</a>

%孙志伟，<a href=“http://arxiv.org/abs/1211.588“>涉及素数和二次型的猜想，arXiv:1211.1588。

%e a（16）=1，因为16=7+3*3，带有7-2和3+2素数。a（26）=1，因为26=31-5，带有31-2和5+2素数。

%t c[n_]：=c[n]=如果[Mod[n-2,6]==0,1，-1-Mod[-n，6]]

%t d[n_]：=d[n]=2+如果[Mod[n-2,6]>0，Mod[-n，6]，0]

%t a[n_]：=a[n]=和[If[PrimeQ[Prime[k]+2]==True&PrimeQ[n+c[n]Prime[k]]==True&PrimeQ[n+c[n]Prime[k]-2]==真，1,0]，

%t{k，1，素数Pi[（n-1）/d[n]]}]

%t要[打印[n，“”，a[n]]，{n，1100000}]

%Y参见A001359、A006512、A002375、A046927、A219055、A218754、A218825、A219052。

%K非n

%O 1,22号机组

%A _孙志伟，2012年11月12日