返回(abs(73-m)==27&&总和(我=1, #v(v), 第页=下一素数(第页+1); 估价(第21页,v(v)[我]))==0)}
和(i=1,#v,p=下一素数(p+1);估值(n21,v[i])==0&&
估值(n21,73)>0)}
小于等于(n)={my(l=列表(),i=1, 54, m=46);而(m<n,if(is(m),listput(l,m));米+=[54,92][我]; 我=三146-i) ;我 } \\大卫·A·科内斯2017年4月29日