a(n)={pr=素数(n);ul=n+1;res=vecprod(pr);迭代(Mod(1,2),2);物件}迭代(v,n)={my(c0,c1);如果(n<ul,c0=中文(v,Mod(pr[n]\2,pr[n]));c1=中文(v,Mod(pr[n]-pr[n]\2,pr[n]));如果(提升(c0)<提升(c1),如果(升力(c0)<res,迭代(c0,n+1)); 如果(升力(c1)<res,迭代(c1,n+1)) ,如果(升力(c1)<res,迭代(c1,n+1)); 如果(升力(c0)<res,迭代(c0,n+1));),res=最小值(res,升力(v)))}