Для того, чтобы понять, какая закономерность имеет место, нужны не одиночные пробы, а программа на языке 'Sage' c использованием цикла. Я не программировал на 'Sage', но думаю, что нетрудно этому научиться. Можно использовать комманду
Код:
R = Primes();
для получения множества простых чисел. Затем комманда
Код:
p=R.first()
даcт первое простое число
. Комманда
Код:
p=R.next(p)
даст следующее простое число. Мы можем, например, взять
и организовать цикл по всем простым числам до 1000. Будем брать простые числа
, не сравнимые с
по модулю
, потому что для таких простых
имеется единственный простой идеал, делящий
c нормой
. Комманды
Код:
I=K.ideal(p); F=I.factor();
дадут список идеалов - делителей числа
в переменной
. Я получал интересующий нас идеал последним в этом списке, но не знаю всегда ли это так. Можно пройтись по всем идеалам списка и найти идеал с нормой
.
Может быть скоро я смогу написать такую программу.
-- Ср окт 28, 2015 13:46:57 --Вот эта программа:
Код:
n=7;
K.<a>=NumberField(x^n-2);
R=Primes();
p=R.first();
for i in range(168):
p=R.next(p);
if (p-1)%n!=0:
I=K.ideal(p);
F=I.factor();
L=list(F);
for J in L:
if J[0].norm()==p:
J[0].gens_reduced()
и её результаты:
Код:
(a^2 - 1,)
(-a^2 - 1,)
(a^2 + a + 1,)
(a^5 - a^3 + a - 1,)
(a^4 - a^2 + 1,)
(a^4 + 1,)
(-a^5 - a^4 - a^3 - a^2 - 1,)
(-a^3 + a + 1,)
(a^5 - 1,)
(a^5 + a^2 + a - 1,)
(-a^5 + a + 1,)
(a^5 + a^3 + a^2 + a + 1,)
(a^6 + a + 1,)
(-a^5 + a^4 + a^3 - a^2 + 1,)
(a^2 + a - 1,)
(a^3 + a + 1,)
(a^6 + a^3 + 1,)
(a^6 + a - 1,)
(a^3 + a^2 + 1,)
(a^4 + a^2 - a + 1,)
(a^6 + a^4 + a^3 + a^2 + 2*a + 1,)
(a^4 - a^2 - 1,)
(-a^6 - a^4 - a^3 - a + 1,)
(a^6 + a^4 - 1,)
(a^6 + a^5 + a^3 + 2*a + 1,)
(a^4 + a^2 - 1,)
(-a^5 + a^4 - a^2 + a + 1,)
(-a^6 + a^5 - 2*a^3 + a^2 + 2*a - 1,)
(-a^6 + a^4 + 1,)
(-a^5 - a^3 - 2*a^2 - a - 3,)
(a^5 - a^4 + 1,)
(a^6 + a^2 - a - 1,)
(a^6 + a^5 + a^4 + 2*a^2 + a + 3,)
(a^6 - a^2 + 1,)
(-a^5 - a^4 - a^2 - 1,)
(a^6 + a^5 - a^4 + a^2 - 1,)
(-a^6 - a^5 - a^3 - a - 1,)
(a^5 - 2*a^3 + a - 1,)
(-a^6 - a^4 - a^3 - 2*a^2 - 2*a - 1,)
(-a^6 - a^5 - a^4 - a^3 - 2*a - 1,)
(-a^5 + a^4 + a^2 + a - 1,)
(a^6 + a^5 - a^3 + 1,)
(a^5 - a^3 - a^2 - 1,)
(a^6 - a^4 + a^3 + a^2 - a + 1,)
(-a^6 - a^4 - a - 1,)
(-2*a - 1,)
(a^3 + a^2 - a + 1,)
(-a^6 + a^4 - a^3 - 2*a^2 + 2*a + 1,)
(a^6 + a^4 + a^3 + 1,)
(a^5 - a^3 + 1,)
(a^6 + a^4 - a^3 + 1,)
(a^6 - a^4 - a^2 - a + 1,)
(a^3 - a^2 - a - 1,)
(a^5 - a^3 + a^2 - a - 1,)
(a^5 - a^4 + a^2 - a + 1,)
(a^5 - a^4 + a^3 - a + 1,)
(a^4 - a^3 - a^2 + a - 1,)
(a^4 - a^3 + a + 1,)
(-a^6 + a^4 - a^3 + a - 1,)
(a^4 + a^3 - a^2 - 2*a + 1,)
(a^4 + a^3 - a + 1,)
(-a^6 - a^5 + 2*a^4 - 3*a^2 + 3,)
(a^5 + a^3 - a^2 + a - 1,)
(2*a^5 - a^4 - 2*a^3 + a^2 + 2*a - 3,)
(a^6 + a^3 - a^2 - 1,)
(-a^6 + a^5 + a^3 + 1,)
(a^5 + a^3 - a^2 + 1,)
(-a^6 + a^5 + a^4 - 2*a^3 + a - 1,)
(-a^6 - a^5 - a^2 + a + 1,)
(a^6 + 2*a^5 + 2*a^4 + 2*a^3 + 3*a^2 + a + 3,)
(a^6 - a^5 + a^4 + a^2 + 2*a - 1,)
(a^6 - a^4 - a^2 + a + 1,)
(a^5 - a^3 - a^2 + a + 1,)
(a^6 - a^5 - a^3 - a^2 - 1,)
(-a^6 + a^4 + a^3 - a^2 + 1,)
(-a^6 + a^5 - a^4 + a^3 + a + 1,)
(a^6 + a^3 + a^2 - a - 1,)
(2*a^2 + a + 1,)
(-a^6 - a^5 - 2*a^3 - a^2 - 2*a - 1,)
(a^5 + a^3 + a - 1,)
(a^6 - 2*a + 1,)
(a^5 - a^2 + 2*a - 1,)
(a^6 + a^5 - 2*a^4 + 2*a^2 - 2*a - 3,)
(-a^6 - a^5 - a^4 - a^2 - a - 3,)
(-a^6 + a^5 - a^4 + 2*a^3 + 1,)
(a^5 + a^4 + 2*a^2 + a + 1,)
(-a^6 - 2*a^3 + a - 1,)
(a^6 + 2*a - 1,)
(a^4 - a^2 + 2*a + 1,)
(a^6 + a^4 + a^2 - 1,)
(a^5 + a^4 - a^2 + a + 1,)
(a^6 + a^5 - 1,)
(-a^4 + 2*a^3 - a + 1,)
(a^5 - a^4 + a + 1,)
(a^6 + a^4 - a^3 - a^2 - a + 1,)
(-a^6 - a^5 - a^4 + a^3 + a^2 - 1,)
(a^4 + a^2 + 2*a + 1,)
(a^5 + a^2 + 2*a + 1,)
(a^5 - a^2 + a + 1,)
(a^5 - a^4 - a^3 - a^2 + 1,)
(2*a^3 + a - 1,)
(-a^6 - a^5 - a^3 + a^2 - a - 1,)
(-a^6 + a^5 - a^4 - a^3 + a^2 - a + 1,)
(a^6 - a^5 - a^4 + a^3 - 1,)
(-a^6 - a^5 + a^4 + a^3 - 2*a^2 + 1,)
(a^4 + 2*a - 1,)
(a^4 - a^3 - a^2 - a - 1,)
(a^6 - a^5 - a^4 + a + 1,)
(a^6 - a^5 - a^4 + a^3 + 1,)
(a^6 + 2*a^4 + a^3 + 3*a^2 + 2*a + 1,)
(-a^6 + a^5 - a^4 + a^3 - a^2 - a - 1,)
(-2*a^3 + a^2 - a + 1,)
(2*a^3 + a^2 - a - 1,)
(-a^5 + a^3 - a^2 + 3,)
(a^3 - a^2 - 2*a + 1,)
(a^5 - a^4 - a^3 + a + 1,)
(-a^5 - a^4 + a^3 - a^2 + 2*a - 1,)
(-a^6 - a^5 - a^4 - 2*a^2 - 1,)
(a^6 + a^5 + a^4 - a - 1,)
(-a^6 - 2*a^4 - a^2 - 1,)
(a^6 + a^4 + a^3 + 2*a^2 + 1,)
(a^5 + a^4 + a^3 - a + 1,)
(a^6 - a^3 - a - 1,)
(-a^6 + a^3 - a^2 - 1,)
(-a^6 + a^5 + a^4 - a^3 + a^2 + a - 1,)
(a^5 + a^2 - a + 3,)
(a^5 + a^4 + a^2 + 2*a - 1,)
(a^5 - 2*a^2 - a + 1,)
(-2*a^6 + 2*a^4 - a^3 - 3*a^2 + 2*a + 3,)
(-2*a^6 - a^5 - 2*a^4 - 2*a^2 - a - 3,)
(a^6 + 2*a^5 + a^4 + 2*a^3 + a^2 + 3*a + 3,)
(a^5 + a^3 - a^2 + 2*a + 1,)
(-a^5 + a^3 - 2*a^2 - a + 3,)
(-a^6 - a^5 + 2*a^4 + a^3 - 2*a^2 + a + 1,)
(a^5 - a^4 + 2*a - 1,)
(a^5 - a^4 - a^3 + 3*a^2 - 3,)
(-2*a^5 + a^3 - a^2 - a + 3,)
(a^6 + a^4 - 2*a^3 + a^2 - a + 1,)
(a^6 - a^5 - a^4 - a^2 - a + 1,)