%I#16 2013年2月26日02:36:37

%S 1,1,1,2,1,1,1,3,2,1,1,3,1,3,2,2,2,3,1,2,2,3,2,2,1,2,3,1,1,2,4,2,1，

%温度3,2,2,3,2,2,2,2,6,1,2,3,4,2,3,1,3,3,42,4,2,2,2,3,1,1,4,4,3,3，

%U 2,4,4,2,3,2,33,3,3,1,5,1,3,4,7,4,3,2,1,5,2,2,7,3,3A,4,5,6

%N写入方式的数量N=p_m-p_{m-1}++(-1)^{m-k}pk其中k<m和pm<=3n，以及pm+1和pk-1都是实用的，其中pj表示j-th素数。

%C猜测：所有的条件都是肯定的。

%C另见与A222579相关的评论。

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

%孙志伟，<a href=“http://arxiv.org/abs/1202.6589“>对于仅采用质数值的函数，arXiv:1202.6589。

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

%e a（9）=2，因为9=11-7+5=19-17+13-11+7-5+3，12，4，20，2都是实用的。

%e a（806）=1，自806起=p_{358}-p_{357}+...+第页_{150}-p_p{358}=2411<=3*806=2418的{149}，以及2412和p_{149}-1=858都是实用的。

%t f[n_]：=f[n]=系数整数[n]

%t Pow[n_，i_]：=Pow[n，i]=部件[部件[f[n]，i]，1]^

%t Con[n_]：=Con[n]=总和[If[Part[Part[f[n]，s+1]，1]<=除法Sigma[1，乘积[Pow[n，i]，{i，1，s}]]+1,0,1]，{s，1，长度[f[n]]-1}]

%t pr[n_]：=pr[n]=n>0&&（n<3||Mod[n，2]+Con[n]==0）

%t pp[k_]：=pp[k]=pr[Prime[k]+1]==真

%t pq[k_]：=pq[k]=pr[素数[k]-1]=真

%t秒[0_]：=0

%t s[n_]：=s[n]=素数[n]-s[n-1]

%t a[n_]：=a[n]=和[如果[pp[j]==True&&pq[i+1]==True&&s[j]-（-1）^（j-i）*s[i]==n，1,0]，{j，素数Pi[n]+1，素数PI[3n]}，{i，0，j-2}]

%t表[a[n]，{n，1100}]

%Y参考A000040、A005153、A210479、A222579。

%K nonn公司

%O 1,4个

%孙志伟，2013年2月25日