将列表元素连接成Mathematica中的数字

Question

我试图在Mathematica 8中生成圆形素数.
圆形素数是一个数字,使得其数字的所有旋转都是素数

例如.197是循环的,因为971和719也是原始的.

现在,为了测试素数是否为圆形,我生成所有旋转.我这样做如下:

p = IntegerDigits[197];
Table[RotateLeft[p, n], {n, Length[p]}]

因此返回

{{9, 7, 1}, {7, 1, 9}, {1, 9, 7}}

然而,这是我被卡住的地方.我现在要做的是获取每个内部列表的元素并按顺序将它们连接在一起,以便输出变为此

{971, 719, 197}

这样我就可以测试所有旋转是否满足PrimeQ [].

虽然我一方面可以通过遍历列表来完成这项工作,但在我看来似乎有一种更好的方法,我只是没有意识到.

Answer 1

FromDigits 是你在找什么.

FromDigits /@ {{9, 7, 1}, {7, 1, 9}, {1, 9, 7}}
{971, 719, 197}