Show that this polynomial is positive
$x\mapsto Q(5, x)$ is positive. There is numerous ways to prove that, more or less algorithmically.
Assume that there exists a $k$ such that $x\mapsto Q(k,x)$ is not positive, and consider $L$ be the infimum of all real numbers $k \geqslant 5$ such that $x\mapsto Q(k, x)$ is not positive. I claim that $Q(L,x)$ has a double real root, this is equivalent to say that $L$ is a root of the discriminant of $Q$ w.r.t. the variable $x$.
The discriminant of $Q$ with respect to $x$ is (computed with Maple) : $$ \operatorname{disc}_x Q = 92162779488452608 k^{16} (k-4)^4 $$
The real roots of this discriminant are 0 and 4, thus $L$ cannot be finite, and hence the claim.
Proofs
Point 1 can be proved using Sturm sequences, and you can compute these sequences using Maple :
sturm(subs(k=5, Q),x,-infinity, infinity); 0
This means that $Q(5, x)$ has no real roots. Since the leading coefficient is positive, the polynomial $Q(5, x)$ is positive whenever $x\in \mathbb R$.
To prove point 2 consider $x_0$ a real numbers such that $Q(L, x)$ is minimal. We have $Q(L, x_0) = 0$, because if $Q(L, x_0) > 0$ then $x\mapsto Q(L+\epsilon, x)$ is positive for $\epsilon > 0$ small enough, which contradict the definition of $L$. If $Q(L, x_0) < 0$, then $Q(L-\epsilon, x_0)$ is stille negative for $\epsilon > 0$ small enough, which is again a contradiction. So $x_0$ is a root of $Q(L,x)$ and of $\partial_x Q(L,x)$, thus it is a double root. The discriminant thing is usual.
The point 3 is Maple :
factor(discrim(Q, x));
You can also use quantifier elimination algorithms. This gives you precisely for which $k$ the polynomial $Q(k,x)$ is positive. For example Mathematica implements such an algorithm :
In[1] := Resolve[ForAll[{x}, Q > 0]]
Out[1] := k < 0 || k > 4
I insist that you can trust this result, it is an exact algorithm not a numerical heuristic.