// // We create a list of cases we want to consider (gothrough), each in the format [* p, N, n, f, pol*]] // Qx:=PolynomialRing(Rationals()); gothrough:=[* // p, N, n, f, pol [* 2, 10, 4, 2, x^8-2 *], [* 2, 100, 4, 2, x^8-2 *], [* 3, 10, 10, 3, x^4-3*x+3 *], [* 3, 100, 10, 3, x^4-3*x+3 *], [* 11, 10, 5, 3, x^3-11*x+11 *], [* 11, 100, 5, 3, x^3-11*x+11 *], [* 37, 10, 5, 2, x^3-37*x+37 *], [* 37, 100, 5, 2, x^3-37*x+37 *], [* 101, 10, 3, 2, x^2+101 *], [* 101, 100, 3, 2, x^2+101 *] *];