|
（PARI）{howfar（p）=my（m）；对于步骤（d=1,9,2，d==5&&next；i素数（p*10+d）||next；m=max（1+howfare（10*p+d），m））；m}
（Python）
从sympy导入isprime，prime
定义a（n）：
pn=素数（n）；ftr={pn}；ext=0
当len（ftr）>0时：
r1=设置（滤波器（isprime，（int（str（e）+d）代表“1379”中的d，代表ftr中的e））
ext，ftr=ext+1，r1
返回ext-1
打印（[a（n）代表范围（1，91）中的n]）#迈克尔·布拉尼基2021年7月7日
（Python）#序列初始段的更快版本
从symby导入isprime，prime，质数范围
定义aupton（术语）：
alst=[]
对于素数范围（1，素数（项）+1）中的p：
r={p}；e=0
当len（r）>0时：
r1=设置（滤波器（isprime，（int（str（e）+d）代表“1379”中的d，代表r中的e））
e、 r=e+1，r1
附加（e-1）
返回alst
| 