（PARI）a（n）={n++；v=向量（n）；i=1；ok=0；直到（ok，while（i>1）&&（v[i]==9），v[i]=0；i--）；如果（i==1，v[i]=下一素数（v[i]+1），v[i]=v[i+1）；curp=总和（j=1，i，v[j]*（10^（i-j）））；如果是素数（curp），如果（i！=n，i++，nbp=0；对于（z=1,9，如果（i素数（10*curp+z），nbp++）；）；如果（nbp==0，ok=1）；）)); }
（Python）
从sympy导入isprime，nextprime
定义a（n）：
p、 oo=2，浮点（'inf'）
为True时：
延伸，到达，r1=0，[str（p）]，[]
当len（reach）>0且延伸<=n时：
minnotext=oo
对于触手可及的s：
wasextended=错误
对于“1379”中的d：
如果是一素数（int（s+d））：r1.追加（s+d）；wasextended=真
如果未扩展：minnotext=min（minnotext，int（s））
如果extend==n和minnotext＜oo：返回minnotext
如果len（r1）>0：扩展+=1
到达，r1=r1，[]
p=下一素数（p）
对于范围（12）中的n：打印（a（n），结束=“，”）#迈克尔·布拉尼基2021年8月8日
