%I#59 2024年4月16日13:36:27

%S 2,29,13,37107127113167103317913710631217101313991249，

%电话：1163112313071193109710477113511439127912373947113531367，

%电话：103431973102711007910831103211024310253102471309310267101631042912487114371035710337

%N最小素数p，即使用p的一个或多个数字可以形成N个完全不同的素数。

%C灵感来自A076449。

%C a（n）>=A076449（n）。例如，a（727）是3569887，而A076449（727。请注意，它们具有相同的数字。

%当n=1、3、4、5、6、7、8、10、11、14、18、19、25、26、29、33、38、40、45、46……时，C a（n）=A076449（n）。

%C a（n）<>A076449（n），但它们在n=12、13、17、19、20、21、24、27、31、32、34、35、36、37、39……处具有相同的数字。

%C a（n）<>A076449（n），并且它们在n=2、9、15、16、22、23、28、30……时没有相同的数字。

%H David A.Corneth，n的表，A（n）表示n=1..10000（前1755个术语来自Robert G.Wilson v）

%e a（0）是1，但1不是素数（A075053）；

%e a（1）是2，第一素数；

%e a（2）是29，因为{2&29}是素数，而{9&92}不是；

%ea（3）是13，因为{3，13&31}是素数，但1不是；

%e（4）是37，因为所有排列都是质数，即：{3,7,37&73}；

%e（5）是107，因为{7、17、71、107和701}是素数；等。

%t f=编译[{{n，_Integer}}，Floor@Length[Select[Union[FromDigits/@Flatten[Permutations/@Subsets[整数位数@n]，1]]，PrimeQ@#&]]]；p=2；t[_]：=0；当[p<114500时，a=f@p；当[t[a]==0时，t[a]=p]；p=下一个Prime@p]；t/@范围@100

%Y参见A072857、A075053、A076449。

%K nonn，基础

%O 1，1

%A _Robert G.Wilson v _，2024年3月22日