A145996 Numbers k such that quintic polynomial 4*k - k^2 + 5*k^2*x + (20*k - 20*k^2)*x^3 + (16 - 32*k + 16*k^2)*x^5 has a rational root.
0, 1, 2, 4, 243
Offset: 1
Keywords
Crossrefs
Cf. A146160.
Programs
-
Mathematica
a = {}; Do[If[Length[FactorList[(4 k - k^2 + 5 k^2 x + (20 k - 20 k^2) x^3 + (16 - 32 k + 16 k^2) x^5)]] > 2, AppendTo[a, k]; Print[k]], {k, 1, 20000000}]; a
Comments