【记录】Mathematica 有哪些三位数满足：三个数码任意取出两个所组成的数字都是素数

来自群友：
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}