(PARI)prime_substring(p)={p=Vec(Str(p));select(x->isprime(x),vecsort(concat(vector(#p,i,vector,vectors(i,j,eval(concats(vecextract(p,Str(j“..”i)))),8)))}/*注:在PARI版本2.4.2(dvt CHANGES-1.1971)中,语法是select*/
{forprime(p=2,默认值(primelimit),p==eval(concat(vecextract(Vec(Str(p)),“-1..1”))|next;#prime_substring(p)>#Str(p)*3\2&print1(p“,”))}
|