%I#29 2023年12月13日20:32:41

%S 2,3,5,7,13,17,19,23,29,37,47,59,67,79,89127137139157167179，

%电话：2392572693473493593673793895477479569123712491259，

%电话：12791289136714591489156715791789234723572389245924672579

%N个按升序排列的不同数字的素数。

%H T.D.Noe，<a href=“/A052015/b052015.txt”>n，a（n）表，n=1..100</a>（完整序列）

%e最后一项是a（100）=23456789。

%t={}；Do[p=素数[n]；如果[Select[Differences[IntegerDigits[p]]，#<=0&]=={}，AppendTo[t，p]]、{n，380}]；t（*Jayanta Basu，2013年5月4日*）

%t选择[Prime[Range[5000]]，Min[Differences[IntegerDigits[#]]>0&]（*_哈维·P·戴尔，2015年6月20日*）

%t选择[FromDigits@#&/@子集@范围@9，PrimeQ]（*亨斯·鲁道夫·维德默，2023年4月8日*）

%o（PARI）A052015=向量提取（vecsort（vector（511，i，isprime（t=eval（concat（vecextract（Vec（“123456789”），i）））*t），NULL，8），“^1”）/*用于旧PARI版本替换，NULL

%o（Python）

%o来自sympy import isprime

%o从itertools导入组合

%o def agen（）：#术语生成器

%o表示范围（1，9）内的d：

%o对于组合中的c（“123456789”，d）：

%o如果isprime（t:=int（“”.join（c）））：

%o产量t

%o打印（列表（agen（）））#_Michael S.Branicky_2023年12月13日

%Y参考A028864、A028867、A052014。

%K nonn、base、fini、full

%O 1,1号机组

%A _帕特里克·德·吉斯特，1999年11月15日