%I#61 2022年9月8日08:44:32

%S 0,1,2,3,4,5,6,7,8,9,1,11,12,13,14,15,16,17,18,19,2,12,22,23,24,25,26，

%电话：27,28,29,3,13,23,34,35,36,37,38,39,4,14,24,44,45,46,47,48,49,5，

%U 15、25、35、45、55、56、57、58、59、6、16、26、36、46、66、67、68、69、7、17、27、37、47

%N按递增顺序排列N的数字，然后（对于N>0）省略零。

%C记录值：A009994.-_Reinhard Zumkeller_，2009年12月5日

%C如果我们将“可排序素数”定义为当数字按递增顺序排序时保持素数的素数，那么所有绝对素数（A003459）都是可排序素材，但并非所有可排序素值都是绝对素数。例如，311既是可排序的又是绝对的，271是可排序的但不是绝对的，因为它的数字可以被置换为217=7*31或712=2 ^ 3*89，等等。-Alonso del Arte，2013年10月5日

%C上述“可排序素数”列在A211654中，非平凡素数（数字不按非递减顺序排列）列在A086042中_M.F.Hasler，2019年7月30日

%H Reinhard Zumkeller，n的表，n=0..10000的a（n）</a>

%e a（19）=19，因为数字已经按递增顺序排列。

%e a（20）=2，因为20的数字是2和0，按递增顺序是0和2，但由于左侧不允许零填充，所以零数字被删除，剩下的是2。

%e a（21）=12，因为21的数字是2和1，按递增顺序是1和2。

%p A004185:=程序（n）

%p本地dgs；

%p转换（n，基数，10）；

%p-dgs:=排序（%，`>`）；

%p加（op（i，dgs）*10^（i-1），i=1…nops（dgs；

%p端程序：

%p序列（A004185（n），n=0..20）；#_R.J.Mathar，2015年7月26日

%t FromDigits[Sort[DeleteCases[IntegerDigits[#]，0]]&/@Range[0，60]（*哈维·P·戴尔，2011年11月29日*）

%o（哈斯克尔）

%o导入数据。列表（排序）

%o a004185 n=读取$sort$show n：：Integer

%o--_Reinhard Zumkeller，2011年8月10日

%o（岩浆）A004185:=func<n|Seqint（反转（排序（Intseq（n）））>；[n eq 0选择0 else A004185（n）：n in[0..57]]；//_Bruno Berselli，2012年4月3日

%o（Python）

%o定义A004185（n）：

%o如果n>0，则返回int（''.join（已排序（str（n）））.replace（'0'，''））else 0#_Chai Wah Wu_，2015年11月10日

%o（PARI）a（n）=fromdigits（vecsort（digits）（n））\\查尔斯·格里特豪斯IV_，2017年2月6日

%Y参见A004719、A004151、A004086、A004186、A009996、A221714、A073138、A193581、A19358、A065641。

%Y参见A211654（可排序素数）和子序列A086042（非平凡解）。

%K nonn，基础，漂亮，简单，看

%0、3

%A _N.J.A.斯隆_