%I#41 2020年9月28日21:47:43

%南20320220566753500185228

%N a（N）是将0到3*N+4之间的十进制整数的所有排列串联起来时创建的质数。

%C当连接0，…，的整数排列时，只有4和4后的每三个整数可以创建素数，。。。，3*n+4，因为其他整数值将产生数字和可被3整除的数字，因此可被3除尽。数字0可以是数字中的第一个数字，但在确定剩余的数字是否构成质数时会被忽略。

%e a（0）=20，因为在连接0、1、2、3、4的整数排列时创建了20个素数。它们是1423、2143、2341、4231、10243、12043、20143、20341、20431、23041、24103、30241、32401、40123、40213、40231、41023、41203、42013、43201。

%e a（1）=3202。使用整数0..7创建的最小素数是1234657，而最大的是76540231。

%e a（2）=2056675。使用整数0..10创建的最小素数是10123457689，而最大的是987654310021。

%t表格[Count[FromDigits/@Flatten/@IntegerDigits/@Permutations[Range[0，3 n+4]]，_？PrimeQ]，{n，0，2}]（*罗巴特价格，2020年9月16日*）

%t（*或者，如果上面的一次存储所有排列的内存不足…*）

%t表[p0=范围[0，3n+4]；p=下一排列[p0]；c=0；

%t当[p！=p0时，

%t如果[PrimeQ[FromDigits[Flatten[IntegerDigits/@p]]]，c++]；

%t p=下一排列[p]]；c、 {n，0，2}]（*_罗巴特价格，2020年9月16日*）

%Y参见A000040、A295206、A006879、A050288、A088628、A185122、A176009、A099182。

%K nonn，基础，更多

%0、1

%A _斯科特·R·香农，2020年5月4日

%E a（3）摘自Giovanni Resta，2020年5月4日