Я пытаюсь сгенерировать круговые простые числа в 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 [].
Хотя я, с одной стороны, мог бы сделать это, просматривая список, мне кажется, что есть лучший способ, которого я просто не осознаю.