(PARI)通用(a,b)=a=vecsort(eval(Vec(Str(a))),8);b=vecsort(eval(Vec(Str(b))),8)#a+#b>#vecsort(concat(a,b),8)
in(v,x)=对于(i=1,#v,如果(v[i]==x,返回(1));0
lista(nn)={my(v=[11]);对于(n=2,nn,forprime(p=2,默认值(primelimit)),如果(!in(v,p)和common(v[#v],p),v=concat(v,p);break));v;}
|