A126270 a(n) = order of Galois group of the polynomial P(x) + n if P(x) + n (after dividing by the gcd of its coefficients) is irreducible, otherwise a(n) = 0, where P(x) = x^8 - 8*x^6 + 20*x^4 - 16*x^2 + 2.
8, 0, 0, 32, 32, 32, 16, 16, 32, 32, 32, 32, 32, 32, 16, 32, 16, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 0, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 8, 16, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 16, 32, 32, 32, 32, 32, 32, 32, 16
Offset: 0
Examples
Galois group of P+6 = x^8 - 8*x^6 + 20*x^4 - 16*x^2 + 8 is group 6 of degree 8 in MAGMA Transitive Group Identification, permutation group acting on a set of cardinality 8 with two generators, isomorphic to dihedral group D(8); it has index 2520 in symmetric group Sym(8) and order 16. Hence a(6) = 16. a(34) = 0 since P+34 = x^8 - 8*x^6 + 20*x^4 - 16*x^2 + 36 = (x^4 - 8*x^2 + 18)*(x^4 + 2) is not irreducible.
Links
- Eric Weisstein's World of Mathematics, Chebyshev Polynomial of the First Kind
Programs
-
Magma
Zx
:=PolynomialRing(Integers()); T:=Coefficients(ChebyshevT(8)); P:=Zx ! [ 2^(2-i)*T[i]: i in [1..#T] ]; [ IsIrreducible(f) select Order(GaloisGroup(f)) else 0 where f is P+n: n in [0..70] ]; /* Klaus Brockhaus, Dec 27 2007 */ -
Magma
Q:=RationalField(); R
:=PolynomialRing(Q); f:=x^8 - 8*x^6 + 20*x^4 - 16*x^2 + 1; for n in {0 .. 30} do f:=f+1; if IsIrreducible(f) then Order(GaloisGroup(f)); else 0; end if; end for; /* N. J. A. Sloane, Dec 28 2007 */
Extensions
Edited and extended by Klaus Brockhaus, Dec 27 2007
Comments