Piggybacking on Mariusz's answer, I used AskConstants to find closed forms of $\, _4F_3\left(\ldots;\ldots;-x\right)$ for $x = 1/4, 1/2, 1$. After massaging the results at noticing patterns, it seems that
$
\, _4F_3\left(\frac{1}{2},\frac{1}{2},1,1;\frac{3}{4},\frac{5}{4},\frac{3}{2};-x\right)=\frac{\tan ^{-1}\left(\sqrt{2 x \left(1+\sqrt{1+\frac{1}{x}}\right)}\right) \tanh ^{-1}\left(\sqrt{2 x
\left(-1+\sqrt{1+\frac{1}{x}}\right)}\right)}{2 \sqrt{x}}$
for all complex $x$ away from the negative real line.
Functions to compare:
pFq[x_] := HypergeometricPFQ[{1/2, 1/2, 1, 1}, {3/4, 5/4, 3/2}, -x]
formula[x_] :=
ArcTan[Sqrt[2x(1+Sqrt[1+1/x])]]ArcTanh[Sqrt[2x(-1+Sqrt[1+1/x])]]/(2Sqrt[x])
Some series terms:
Series[pFq[x], {x, 0, 3}]
![](https://cdn.statically.io/img/i.sstatic.net/YUpTX1x7.png)
PowerExpand[Normal[Series[formula[x], {x, 0, 3}]], Assumptions -> x > 0]
![](https://cdn.statically.io/img/i.sstatic.net/pB3Ojzwf.png)
Some numerical verification:
Plot[{pFq[x], formula[x]}, {x, 0, 10}, PlotStyle -> {AbsoluteThickness[3], Directive[AbsoluteThickness[3], Dashed]}]
![](https://cdn.statically.io/img/i.sstatic.net/2fDeoxTM.png)