A371553
Consider primitive pairs of integers (b, c) with b > 0 such that x^5 + b*x + c = 0 is irreducible and solvable by radicals: sequence gives values of b.
Original entry on oeis.org
11, 15, 15, 20, 120, 120, 280, 280, 312, 330, 330, 750, 750, 4095, 4095, 5700, 5700, 7800, 7800, 10140, 10140, 10564, 10564, 11102, 11275, 11275, 21970, 21970, 27248, 30758, 31000, 31000, 31146, 31350, 31350, 32955, 32955, 35490, 35490, 38360, 38360, 41236
Offset: 1
15 is in the sequence twice because x^5 + 15*x + 12 and x^5 + 15*x + 44 are both irreducible and solvable by radicals, and (15, 12) and (15, 44) are both primitive pairs.
176 is not in the sequence because there is no integer c for which (176, c) is primitive and x^5 + 176*x + c is irreducible and solvable by radicals. x^5 + 176*x + 1408 is irreducible and solvable by radicals, but (176, 1408) is not primitive because it is equivalent to (11, 44).
x^5 + (10/13)*x - 3/13 is solvable by radicals, and (10/13, -3/13) ~ (21970, 85683) which is primitive, so 21970 is in the sequence.
-
pairs = Join @@ Table[
Select[{b, Abs[#1 - b] #2/5} & @@@
Sort[SolveValues[x^2 - (6b + 5y^4)x + 25b^2 == 0 && y > 0, {x, y}, Integers]],
Max[Last /@ FactorInteger[GCD @@ #]] < 4 &&
AllTrue[#, IntegerQ] &&
IrreduciblePolynomialQ[x^5 + #1x + #2 & @@ #] &
],
{b, 1, 1000}
];
pairs[[All, 1]]
A371557
Consider primitive pairs of integers (b, c) with b < 0 such that x^5 + b*x + c = 0 is irreducible and solvable by radicals: sequence gives values of b.
Original entry on oeis.org
-5, -40, -40, -72, -1189, -1189, -1900, -1900, -2625, -2625, -4350, -4350, -7280, -7368, -7368, -7553, -8788, -8840, -8840, -26010, -26010, -29580, -29580, -37180, -37180, -38120, -38120, -43061, -49640, -49640, -63713, -72668, -73185, -73185, -91845, -91845
Offset: 1
-40 is in the sequence twice because x^5 - 40*x + 64 and x^5 - 40*x + 832 are both irreducible and solvable by radicals, and (-40, 64) and (-40, 832) are both primitive pairs.
-
pairs = Join @@ Table[
Select[{b, Abs[#1 - b] #2/5} & @@@
Sort[SolveValues[x^2 - (6b + 5y^4)x + 25b^2 == 0 && y > 0, {x, y}, Integers]],
Max[Last /@ FactorInteger[GCD @@ #]] < 4 &&
AllTrue[#, IntegerQ] &&
IrreduciblePolynomialQ[x^5 + #1x + #2 & @@ #] &
],
{b, -1, -1000, -1}
];
pairs[[All, 1]]
A371558
Consider primitive pairs of integers (b, c) with b < 0 such that x^5 + b*x + c = 0 is irreducible and solvable by radicals: sequence gives values of c.
Original entry on oeis.org
12, 64, 832, 576, 4060, 86428, 8800, 76000, 17500, 61500, 22243, 303810, 60333, 36672, 3045440, 42588, 114244, 48552, 1251081, 486387, 579734, 209409, 19615484, 281216, 10826816, 406848, 378211392, 43922220, 1051200, 1354560, 9939228, 66545721, 773916, 9585212
Offset: 1
a(1) = 12 because A371557(1) = -5, and x^5 - 5*x + 12 is irreducible and solvable by radicals, and (-5, 12) is a primitive pair.
-
pairs = Join @@ Table[
Select[{b, Abs[#1 - b] #2/5} & @@@
Sort[SolveValues[x^2 - (6b + 5y^4)x + 25b^2 == 0 && y > 0, {x, y}, Integers]],
Max[Last /@ FactorInteger[GCD @@ #]] < 4 &&
AllTrue[#, IntegerQ] &&
IrreduciblePolynomialQ[x^5 + #1x + #2 & @@ #] &
],
{b, -1, -1000, -1}
];
pairs[[All, 2]]
Showing 1-3 of 3 results.
Comments