%I#17 2018年11月22日02:42:08

%序号2,3,5,7,13,17,31,37,71,73,79,971131311993113373733919991

%N非重单位的绝对素数：由任何数位置换产生的数也是素数的素数，不包括重单位素数。

%C任何具有两个或多个数字的术语都包含集合{1、3、7、9}中正好两个不同的数字（参见Erdős等人，1977，解决方案953）。

%C猜想：序列是有限的，991是最后一项。

%C已知项是A293663中的项，其中A293662中的成员关系通常意味着该序列中的成员，即这些项的数字的所有循环排列产生的数字与这些项的所有数字排列产生的数相同。这仅适用于少于四位数字的术语。

%H P.Erdős等人，<a href=“https://doi.org/10.2307/2689738“>问题</a>，《数学杂志》，第50卷，第2期（1977年），99-104。

%H Arkadii Slinko，<a href=“https://arxiv.org/abs/1811.08613“>绝对素数，arXiv:1811.08613[math.NT]，2018。

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Permutable_prime网站“>可变素数</a>

%e由113的数字的所有可能的排列产生的其他数字是131和311。113、131和311都是素数，所以这三个数字都是这个序列的项。

%o（PARI）eva（n）=子集（Pol（n），x，10）

%o find_indexa（vec）=我的（r=#vec-1）；而（1，如果（vec[r]<vec[r+1），返回（r））；r--；如果（r==0，返回（-1））

%o find_index_b（r，vec）=我的（s=#vec）；而（1，如果（vec[r]<vec[s]，返回（s））；s--；如果（s==r，返回（-1））

%o switch_elements（vec，firstpos，secondpos）=我的（g）；g=vec[第二位置]；vec[secondpos]=vec[firstpos]；vec[firstpos]=g；血管内皮细胞

%o逆序（vec，r）=my（v=[]，w=[]）；对于（x=1，r，v=concat（v，vec[x]））；对于（y=r+1，#vec，w=concat（w，vec[y]））；w=Vecrev（w）；凹面（v，w）

%o下一个permutation（vec）=我的（r=find_indexa（vec））；如果（r==-1，返回（0），my（s=findindexb（r，vec））；vec=开关元素（vec，r，s）；vec=反转顺序（vec，r））；血管内皮细胞

%o是（n）=如果（n<10，返回（1））；my（d=vecsort（数字（n）））；如果（vecmin（d）==0|vecmax（d）==1，则返回（0））；while（1，如果（！ispseudoprime（eva（d）），则返回（0））；d=下一个置换（d）；如果（d==0，返回（1））

%o表示质数（p=1，如果（是（p），打印1（p，“，”））

%Y A003459中A004022的相对补码。A129338的超层序。A293663的后续序列。

%K nonn，基础，更多

%O 1,1号机组

%A_Felix Fröhlich，2018年8月4日