来自群友:
137是素数
还有哪些三位数满足:三个数码任意取出两个所组成的数字都是素数
13是素数
17是素数
31是素数
37是素数
71是素数
73是素数
首先想到FromDigits, IntegerDigits, Permutations
,于是就有了下面的程序
Range[100,999]//Select[AllTrue[FromDigits/@Permutations[IntegerDigits@#,{2}],PrimeQ]&]
结果是
{111, 113, 117, 131, 137, 171, 173, 311, 317, 371, 711, 713, 731}