p=素数[范围[500]];np=下降[补码[范围[500],p],1];a[1]=1;a[n_]:=a[n]=块[{k=1,q=整数位数[a[n-1]]},如果[EvenQ[n],While[!PrimeQ[FromDigits[Join[q,整数位数[p[k]]]],k++];q=p[[k]];p=删除[p,k];q、 而[!PrimeQ[FromDigits[Join[q,IntegerDigits[Pp[[k]]]],k++];q=np[[k]];np=删除[np,k];q] ];表[a[n],{n,60}]
|