(PARI)类(n,s=1)={if(!isprime(n),0,if(!(n=factor(n+s)[,1])|n[#n]<=3,1,for(i=2,#n,n[1]=max(类(n[i],s)+1,n[1]));n[1]))};
nextclass(a,s=1,p,n=[])={if(!p,p=nextprime(a[#a]+1));print(“产生类的素数”,1+类(a[1],s),[“+”,“-”][1+(s<0)],“最多2*”,p);for(i=1,#a,for(k=1,p/a[i],if(isprime(2*k*a[i]-s),n=concat(n,2*k*1[i]/s)))));向量排序(n)};