(*
Result for \tilde{\sigma}_{qq^\prime}^{(3)} in eq.(31) of TTP15-019:

"Exact N$^3$LO results for $q q^\prime\to H +X$"
Chihaya Anzai,  Alexander Hasselhuhn,  Maik H\"oschele, Jens Hoff,  
William Kilgore, Matthias Steinhauser, Takahiro Ueda

The meaning of the symbols is obvious by comparing with the analytic
expression in the paper.
*)
sigma=nl*((1)/(27)*(x+2)^2*H[0,x]^4+(2)/(243)*(11*x^2-40*x+188)*H[0,x]^3-(4)/(27)*(x+2)^2*Zeta[2]*H[0,x]^2-(1)/(243)*(772*x^2+1156*x-2213)*H[0,x]^2-(16)/(9)*(x-1)*(x+3)*H[1,x]*H[0,x]^2-(1)/(243)*(3139*x^2+5218*x-7620)*H[0,x]-(40)/(27)*(x-1)*(x+3)*H[1,x]^2*H[0,x]+(2)/(27)*(83*x^2+264*x+148)*H[0,1,1,x]+(4)/(81)*(107*x^2+344*x+164)*H[0,1,x]*H[0,x]-(32)/(27)*(x^2+x+4)*Zeta[2]*H[0,x]-(70)/(81)*(x-1)*(13*x+33)*H[1,x]*H[0,x]-(56)/(27)*(x+2)^2*H[0,0,1,x]*H[0,x]+(40)/(27)*(x+2)^2*H[0,1,1,x]*H[0,x]-(98)/(135)*(x+2)^2*Zeta[2]^2-(4)/(27)*(x+2)^2*Zeta[3]*H[0,x]-(8)/(27)*(x-1)*(x+3)*H[1,x]^3-(1)/(324)*(x-1)*(2549*x+15343)-(1)/(54)*(x-1)*(319*x+771)*H[1,x]^2-(11)/(27)*(x+2)^2*H[0,1,x]^2-(8)/(27)*(x+2)^2*Zeta[2]*H[0,1,x]+(2)/(243)*(215*x^2-904*x-1402)*Zeta[2]+(2)/(243)*(469*x^2+1840*x-218)*H[0,1,x]-(41)/(486)*(x-1)*(169*x+519)*H[1,x]-(4)/(81)*(119*x^2+464*x+260)*H[0,0,1,x]+(56)/(27)*(x+2)^2*H[0,0,0,1,x]+(22)/(27)*(x+2)^2*H[0,1,0,1,x]+(16)/(27)*(x-1)*(x+3)*Zeta[2]*H[1,x]+(8)/(9)*(x+2)^2*H[0,1,x]*H[0,x]^2+(8)/(9)*(x+2)^2*H[0,1,1,1,x]+(2)/(81)*(13*x^2+184*x+4)*Zeta[3])+(1)/(729)*(1064*x^3-2853*x^2+107433*x-41149)*H[0,x]^3-(112)/(27)*(x+2)^2*H[0,1,x]*H[0,x]^3-(1)/(27)*(13*x^2+135*x+164)*H[0,x]^4+(4)/(27)*(29*x^2-28*x+28)*Zeta[2]*H[0,x]^3+(8)/(81)*(x+1)*(97*x-294)*H[-1,x]*H[0,x]^3+(7)/(81)*(x-1)*(97*x+285)*H[1,x]*H[0,x]^3-(1)/(810)*(175*x^2-308*x+216)*H[0,x]^5-(130)/(27)*(x-2)^2*H[0,-1,x]*H[0,x]^3-(356)/(27)*(x-3)*(x+1)*H[-1,x]^2*H[0,x]^2+(836)/(27)*(x-1)*(x+3)*H[1,x]^2*H[0,x]^2+(1)/(5832)*(46480*x^3-286656*x^2+3753336*x-1756017)*H[0,x]^2+(35)/(216)*(118*x+85)*Sqrt[4*x+1]*H[0,x]^2-(2)/(81)*(105*x^2-1548*x-1900)*Zeta[2]*H[0,x]^2-(35)/(54)*(9*x^2-2*x-8)*H[s4,x]*H[0,x]^2+(70)/(9)*(x-3)*(x+1)*H[-1,s4,x]*H[0,x]^2-(35)/(9)*(x-6)*x*H[0,s4,1]*H[0,x]^2-(1)/(81)*(1083*x^2-2556*x-3046)*H[0,-1,x]*H[0,x]^2+(1)/(486)*(x+1)*(80*x^2+12889*x-46117)*H[-1,x]*H[0,x]^2-(35)/(9)*(x-2)^2*H[0,-1,s4,x]*H[0,x]^2+(1)/(54)*(x-1)*(400*x^2-1019*x+35945)*H[1,x]*H[0,x]^2-(35)/(9)*(x-6)*x*H[0,s4,x]*H[0,x]^2+(1)/(27)*(1220*x^2-4844*x-7485)*H[0,1,x]*H[0,x]^2+(356)/(27)*(x-2)^2*H[0,-1,-1,x]*H[0,x]^2+(140)/(9)*(x-3)*(x+1)*H[0,s4,1]*H[-1,x]*H[0,x]-(2)/(27)*(317*x^2-1612*x+212)*H[0,0,1,x]*H[0,x]^2-(836)/(27)*(x+2)^2*H[0,1,1,x]*H[0,x]^2+(8)/(9)*(13*x^2+31*x+30)*Zeta[3]*H[0,x]^2+(592)/(81)*(x-3)*(x+1)*H[-1,x]^3*H[0,x]+(3212)/(81)*(x-1)*(x+3)*H[1,x]^3*H[0,x]-(4)/(135)*(361*x^2-1044*x+36)*Zeta[2]^2*H[0,x]+(28)/(81)*Log[2]^4*(x-2)^2*H[0,x]-(2)/(243)*(x+1)*(104*x^2+1633*x-7915)*H[-1,x]^2*H[0,x]+(224)/(27)*li4half*(x-2)^2*H[0,x]+(14)/(729)*(x+1)*(280*x^2-1213*x-5327)*H[-1,x]*H[0,x]+(1)/(54)*(x-1)*(592*x^2-847*x+53333)*H[1,x]^2*H[0,x]-(160)/(27)*(x-2)^2*H[0,-1,x]^2*H[0,x]-(1)/(8748)*(421040*x^3-394707*x^2-12461502*x+7407221)*H[0,x]-(1)/(9)*(79*x^2-1028*x-212)*H[0,1,x]^2*H[0,x]-(56)/(27)*Log[2]^2*(x-2)^2*Zeta[2]*H[0,x]-(1)/(243)*(3008*x^3-10503*x^2+202176*x-46836)*Zeta[2]*H[0,x]+(35)/(108)*Sqrt[4*x+1]*(118*x+85)*H[s4,x]*H[0,x]-(35)/(27)*(9*x^2-2*x-8)*H[0,s4,1]*H[0,x]-(35)/(9)*(x-2)^2*Zeta[2]*H[0,s4,1]*H[0,x]+(70)/(9)*(x-2)^2*H[-1,s4,1]*H[0,s4,1]*H[0,x]+(140)/(9)*(x-3)*(x+1)*H[-1,s4,s4,x]*H[0,x]-(140)/(9)*(x-3)*(x+1)*H[0,-1,s4,x]*H[0,x]+(70)/(9)*Log[2]*(x-2)^2*H[0,0,s4,1]*H[0,x]-(70)/(9)*(x-6)*x*H[0,0,s4,1]*H[0,x]+(70)/(9)*(x-6)*x*H[0,0,s4,x]*H[0,x]-(70)/(9)*Log[2]*(x-2)^2*H[0,s4,s4,1]*H[0,x]+(70)/(9)*(x-6)*x*H[0,s4,s4,1]*H[0,x]-(70)/(9)*(x-6)*x*H[0,s4,s4,x]*H[0,x]-(70)/(9)*(x-2)^2*H[-1,0,0,s4,1]*H[0,x]-(70)/(9)*(x-2)^2*H[-1,0,s4,s4,1]*H[0,x]-(70)/(9)*(x-2)^2*H[-1,s4,0,s4,1]*H[0,x]-(70)/(9)*(x-2)^2*H[0,-1,s4,s4,1]*H[0,x]-(70)/(9)*(x-2)^2*H[0,-1,s4,s4,x]*H[0,x]+(70)/(9)*(x-2)^2*H[0,0,-1,s4,1]*H[0,x]+(200)/(9)*(x-2)^2*H[0,0,-1,x]*H[0,x]^2-(1)/(81)*(x-1)*(908*x^2+7916*x-135025)*H[1,x]*H[0,x]-(35)/(54)*(9*x^2-2*x-8)*H[s4,x]^2*H[0,x]-(4)/(27)*(x+1)*(373*x-1101)*Zeta[2]*H[-1,x]*H[0,x]-(8)/(81)*(306*x^2-474*x-497)*H[0,-1,-1,x]*H[0,x]-(4)/(27)*(x-1)*(307*x+963)*Zeta[2]*H[1,x]*H[0,x]+(1)/(243)*(16*x^3-5013*x^2+4140*x+28873)*H[0,-1,x]*H[0,x]-(35)/(9)*(x-2)^2*Zeta[2]*H[0,s4,s4,1]+(740)/(27)*(x-2)^2*Zeta[2]*H[0,-1,x]*H[0,x]+(8)/(9)*(x+1)*(27*x-79)*H[-1,x]*H[0,-1,x]*H[0,x]-(70)/(9)*(x-2)^2*H[0,s4,1]*H[0,-1,x]*H[0,x]-(8)/(27)*(x-1)*(25*x+117)*H[1,x]*H[0,-1,x]*H[0,x]+(1)/(243)*(2960*x^3+18009*x^2-2034*x+69166)*H[0,1,x]*H[0,x]-(448)/(27)*(x-2)^2*H[0,-1,x]*H[0,1,x]*H[0,x]+(8)/(9)*(x+1)*(37*x-113)*H[-1,x]*H[0,1,x]*H[0,x]+(628)/(27)*(x+2)^2*Zeta[2]*H[0,1,x]*H[0,x]+(2)/(27)*(x-1)*(475*x+1383)*H[1,x]*H[0,1,x]*H[0,x]+(140)/(9)*(x-2)^2*H[0,0,-1,s4,x]*H[0,x]-(16)/(27)*(43*x^2-160*x-111)*H[0,-1,1,x]*H[0,x]-(496)/(27)*(x-2)^2*H[0,0,-1,-1,x]*H[0,x]+(4)/(27)*(81*x^2-620*x-112)*H[0,0,-1,x]*H[0,x]+(896)/(27)*(x-2)^2*H[0,0,-1,1,x]*H[0,x]-(2)/(81)*(3996*x^2-17088*x-31681)*H[0,0,1,x]*H[0,x]-52*(x-2)^2*H[0,0,0,-1,x]*H[0,x]-(16)/(27)*(43*x^2-160*x-111)*H[0,1,-1,x]*H[0,x]+(2)/(27)*(923*x^2-8188*x-6336)*H[0,1,1,x]*H[0,x]-(592)/(27)*(x-2)^2*H[0,-1,-1,-1,x]*H[0,x]+(4)/(9)*(275*x^2-820*x+484)*H[0,0,0,1,x]*H[0,x]+(896)/(27)*(x-2)^2*H[0,0,1,-1,x]*H[0,x]+(64)/(27)*(9*x^2-20*x+36)*H[0,1,0,-1,x]*H[0,x]+(4)/(27)*(37*x^2-838*x+842)*Zeta[3]*H[0,x]+(2)/(9)*(x^2-1340*x-524)*H[0,1,0,1,x]*H[0,x]-(3212)/(27)*(x+2)^2*H[0,1,1,1,x]*H[0,x]+(196)/(27)*Log[2]*(x-2)^2*Zeta[3]*H[0,x]-(500)/(9)*(x-1)*(x+3)*Zeta[2]*H[1,x]^2+(1)/(54)*(x-1)*(256*x^2-237*x+23559)*H[1,x]^3+(2)/(135)*(2269*x^2-1338*x+9038)*Zeta[2]^2+(35)/(9)*(x-6)*x*H[0,s4,1]^2+(35)/(9)*(x-6)*x*H[0,s4,x]^2+(872)/(27)*(x-3)*(x+1)*Zeta[2]*H[-1,x]^2+(1208)/(81)*(x-1)*(x+3)*H[1,x]^4-(1)/(2916)*(x-1)*(24448*x^2+200029*x-3186149)*H[1,x]^2+(4)/(81)*(63*x^2-6*x+214)*H[0,-1,x]^2-(1)/(27)*(494*x^2-5212*x-4845)*H[0,1,x]^2+(1)/(26244)*(x-1)*(57136*x^2-1139639*x+29021665)+(112)/(27)*Log[2]^2*(x-3)*(x+1)*Zeta[2]-(1)/(1458)*(8032*x^3-239799*x^2+1426872*x-432084)*Zeta[2]-(56)/(81)*Log[2]^4*(x-3)*(x+1)-(448)/(27)*li4half*(x-3)*(x+1)+(35)/(108)*Sqrt[4*x+1]*(118*x+85)*H[0,s4,1]+(70)/(9)*(x-3)*(x+1)*Zeta[2]*H[0,s4,1]-(35)/(27)*(9*x^2-2*x-8)*H[s4,x]*H[0,s4,1]-(140)/(9)*(x-3)*(x+1)*H[-1,s4,1]*H[0,s4,1]+(140)/(9)*(x-3)*(x+1)*H[-1,s4,x]*H[0,s4,1]-(35)/(108)*Sqrt[4*x+1]*(118*x+85)*H[0,s4,x]+(35)/(27)*(9*x^2-2*x-8)*H[s4,x]*H[0,s4,x]-(70)/(9)*(x-6)*x*H[0,s4,1]*H[0,s4,x]+(70)/(9)*(x-2)^2*H[0,s4,1]*H[0,-1,s4,1]-(70)/(9)*(x-2)^2*H[0,s4,1]*H[0,-1,s4,x]-(140)/(9)*Log[2]*(x-3)*(x+1)*H[0,0,s4,1]-(35)/(27)*(9*x^2-2*x-8)*H[0,0,s4,1]+(35)/(27)*(9*x^2-2*x-8)*H[0,0,s4,x]+(140)/(9)*Log[2]*(x-3)*(x+1)*H[0,s4,s4,1]+(35)/(27)*(9*x^2-2*x-8)*H[0,s4,s4,1]-(35)/(27)*(9*x^2-2*x-8)*H[0,s4,s4,x]+(140)/(9)*(x-3)*(x+1)*H[-1,0,0,s4,1]-(140)/(9)*(x-3)*(x+1)*H[-1,0,0,s4,x]+(140)/(9)*(x-3)*(x+1)*H[-1,0,s4,s4,1]-(140)/(9)*(x-3)*(x+1)*H[-1,0,s4,s4,x]+(140)/(9)*(x-3)*(x+1)*H[-1,s4,0,s4,1]-(140)/(9)*(x-3)*(x+1)*H[-1,s4,0,s4,x]+(140)/(9)*(x-3)*(x+1)*H[0,-1,s4,s4,1]-(140)/(9)*(x-3)*(x+1)*H[0,-1,s4,s4,x]-(140)/(9)*(x-3)*(x+1)*H[0,0,-1,s4,1]+(140)/(9)*(x-3)*(x+1)*H[0,0,-1,s4,x]-(70)/(9)*(x-2)^2*H[0,-1,0,s4,s4,1]+(70)/(9)*(x-2)^2*H[0,-1,0,s4,s4,x]-(70)/(9)*(x-2)^2*H[0,-1,s4,0,s4,1]+(70)/(9)*(x-2)^2*H[0,-1,s4,0,s4,x]+(140)/(9)*(x-2)^2*H[0,0,-1,0,s4,1]-(140)/(9)*(x-2)^2*H[0,0,-1,0,s4,x]-(140)/(9)*(x-2)^2*H[0,0,-1,s4,s4,1]+(140)/(9)*(x-2)^2*H[0,0,-1,s4,s4,x]+(140)/(3)*(x-2)^2*H[0,0,0,-1,s4,1]-(140)/(3)*(x-2)^2*H[0,0,0,-1,s4,x]+(70)/(3)*(x-2)^2*H[0,0,0,s4,-1,1]-(70)/(3)*(x-2)^2*H[0,0,0,s4,-1,x]+(70)/(9)*(x-2)^2*H[0,0,s4,0,-1,1]-(70)/(9)*(x-2)^2*H[0,0,s4,0,-1,x]-(4)/(27)*(x+1)*(4*x^2+400*x-1489)*Zeta[2]*H[-1,x]+(140)/(9)*(x-3)*(x+1)*H[0,0,s4,1]*H[-1,x]-(140)/(9)*(x-3)*(x+1)*H[0,s4,s4,1]*H[-1,x]-(1)/(1458)*(x-1)*(52112*x^2-42806*x-2393137)*H[1,x]+(64)/(3)*(x-2)^2*H[0,1,x]*H[0,1,-1,x]-(8)/(243)*(x-1)*(418*x^2-2777*x+32665)*Zeta[2]*H[1,x]+(70)/(9)*(x-2)^2*H[0,0,s4,x]*H[0,-1,x]+(8)/(27)*(50*x^2-131*x-165)*Zeta[2]*H[0,-1,x]-(592)/(27)*(x-3)*(x+1)*H[-1,x]^2*H[0,-1,x]-(14)/(729)*(x+1)*(280*x^2-1213*x-5327)*H[0,-1,x]-(70)/(9)*(x-2)^2*H[0,0,s4,1]*H[0,-1,x]-(140)/(9)*(x-3)*(x+1)*H[0,s4,1]*H[0,-1,x]+(70)/(9)*(x-2)^2*H[0,s4,s4,1]*H[0,-1,x]+(4)/(243)*(x+1)*(104*x^2+1633*x-7915)*H[-1,x]*H[0,-1,x]-(64)/(3)*(x-3)*(x+1)*H[-1,x]^2*H[0,1,x]+(68)/(27)*(x-1)*(x+3)*H[1,x]^2*H[0,1,x]+(1)/(1458)*(21656*x^3-106251*x^2-38232*x+710568)*H[0,1,x]-(4)/(81)*(2373*x^2-4638*x-8990)*Zeta[2]*H[0,1,x]+(256)/(27)*(x-2)^2*H[0,1,x]*H[0,0,-1,x]-(2)/(243)*(x+1)*(32*x^2-5567*x+18887)*H[-1,x]*H[0,1,x]-(8)/(243)*(x-1)*(14*x^2+194*x-355)*H[1,x]*H[0,1,x]+(4)/(81)*(51*x^2-430)*H[0,-1,x]*H[0,1,x]-(4)/(243)*(x+1)*(104*x^2+1633*x-7915)*H[0,-1,-1,x]-(872)/(27)*(x-2)^2*Zeta[2]*H[0,-1,-1,x]+(1184)/(27)*(x-3)*(x+1)*H[-1,x]*H[0,-1,-1,x]+(592)/(27)*(x-2)^2*H[0,-1,x]*H[0,-1,-1,x]+(64)/(3)*(x-2)^2*H[0,1,x]*H[0,-1,-1,x]+(2)/(243)*(x+1)*(32*x^2-5567*x+18887)*H[0,-1,1,x]+(128)/(3)*(x-3)*(x+1)*H[-1,x]*H[0,-1,1,x]-(32)/(3)*(x-2)^2*H[0,-1,x]*H[0,-1,1,x]-(1)/(243)*(112*x^3+2943*x^2-24948*x+11629)*H[0,0,-1,x]-(1048)/(27)*(x-2)^2*Zeta[2]*H[0,0,-1,x]+(140)/(9)*(x-2)^2*H[0,s4,1]*H[0,0,-1,x]+(32)/(27)*(x+1)*(4*x-15)*H[-1,x]*H[0,0,-1,x]+(16)/(27)*(x-1)*(25*x+117)*H[1,x]*H[0,0,-1,x]-(8)/(3)*(x-2)^2*H[0,-1,x]*H[0,0,-1,x]-(1)/(243)*(4112*x^3+17235*x^2+8928*x-11415)*H[0,0,1,x]+(16)/(27)*(83*x^2-316*x+68)*Zeta[2]*H[0,0,1,x]-(16)/(9)*(x+1)*(7*x-23)*H[-1,x]*H[0,0,1,x]-(4)/(27)*(x-1)*(407*x+1179)*H[1,x]*H[0,0,1,x]+(128)/(3)*(x-3)*(x+1)*H[-1,x]*H[0,1,-1,x]+(4)/(81)*(529*x^2-2060*x+620)*H[0,1,x]*H[0,0,1,x]+(176)/(27)*(x-2)^2*H[0,-1,x]*H[0,0,1,x]+(2)/(243)*(x+1)*(32*x^2-5567*x+18887)*H[0,1,-1,x]-(32)/(3)*(x-2)^2*H[0,-1,x]*H[0,1,-1,x]+(1)/(243)*(3600*x^3+28827*x^2-50220*x+145505)*H[0,1,1,x]+(500)/(9)*(x+2)^2*Zeta[2]*H[0,1,1,x]+(128)/(3)*(x-3)*(x+1)*H[-1,x]*H[0,1,1,x]+(8)/(27)*(x-1)*(x+3)*H[1,x]*H[0,1,1,x]-(64)/(3)*(x-2)^2*H[0,-1,x]*H[0,1,1,x]+(2)/(27)*(27*x^2+1836*x+812)*H[0,1,x]*H[0,1,1,x]-(1184)/(27)*(x-3)*(x+1)*H[0,-1,-1,-1,x]-(128)/(3)*(x-3)*(x+1)*H[0,-1,-1,1,x]-(128)/(3)*(x-3)*(x+1)*H[0,-1,1,-1,x]-(128)/(3)*(x-3)*(x+1)*H[0,-1,1,1,x]-(32)/(27)*(x+1)*(4*x-15)*H[0,0,-1,-1,x]-(8)/(81)*(75*x^2+840*x-718)*H[0,0,-1,1,x]-(2)/(27)*(179*x^2-2740*x+22)*H[0,0,0,-1,x]+(2)/(27)*(555*x^2-5808*x-11551)*H[0,0,0,1,x]-(8)/(81)*(75*x^2+840*x-718)*H[0,0,1,-1,x]-(128)/(3)*(x-3)*(x+1)*H[0,1,-1,-1,x]-(128)/(3)*(x-3)*(x+1)*H[0,1,-1,1,x]-(4)/(81)*(201*x^2+552*x-1132)*H[0,1,0,-1,x]+(2)/(81)*(2847*x^2-13308*x-17566)*H[0,1,0,1,x]-(128)/(3)*(x-3)*(x+1)*H[0,1,1,-1,x]+(2)/(27)*(1905*x^2-9008*x-8556)*H[0,1,1,1,x]-(1184)/(27)*(x-2)^2*H[0,-1,0,-1,-1,x]+(32)/(3)*(x-2)^2*H[0,-1,1,0,-1,x]-(2368)/(27)*(x-2)^2*H[0,0,-1,-1,-1,x]+(568)/(27)*(x-2)^2*H[0,0,-1,0,-1,x]+(128)/(3)*(x-2)^2*H[0,0,-1,1,1,x]+(568)/(9)*(x-2)^2*H[0,0,0,-1,-1,x]-48*(x-2)^2*H[0,0,0,-1,1,x]+(512)/(9)*(x-2)^2*H[0,0,0,0,-1,x]-(8)/(27)*(577*x^2-1580*x+1296)*H[0,0,0,0,1,x]-48*(x-2)^2*H[0,0,0,1,-1,x]-(16)/(27)*(59*x^2-108*x+236)*H[0,0,1,0,-1,x]-(4)/(27)*(295*x^2-2996*x-316)*H[0,0,1,0,1,x]-(128)/(3)*(x-2)^2*H[0,0,1,1,-1,x]+(32)/(3)*(x-2)^2*H[0,1,-1,0,-1,x]-(64)/(3)*(x-2)^2*H[0,1,-1,0,1,x]-(512)/(27)*(x^2+4)*H[0,1,0,0,-1,x]+(4)/(81)*(71*x^2+4460*x+1780)*H[0,1,0,0,1,x]-(64)/(3)*(x-2)^2*H[0,1,0,1,-1,x]-(2)/(27)*(151*x^2+5788*x+2716)*H[0,1,0,1,1,x]+(64)/(3)*(x-2)^2*H[0,1,1,0,-1,x]-(2)/(27)*(61*x^2+1972*x+948)*H[0,1,1,0,1,x]-(4832)/(27)*(x+2)^2*H[0,1,1,1,1,x]+(16)/(27)*(31*x^2+354*x+58)*Zeta[5]-(392)/(27)*Log[2]*(x-3)*(x+1)*Zeta[3]-(2)/(243)*(848*x^3+819*x^2+102132*x-25745)*Zeta[3]-(2)/(27)*(147*x^2+2564*x+236)*Zeta[2]*Zeta[3]-(35)/(3)*(x-2)^2*H[0,s4,1]*Zeta[3]-(4)/(27)*(x+1)*(445*x-1329)*H[-1,x]*Zeta[3]-(32)/(27)*(x-1)*(76*x+249)*H[1,x]*Zeta[3]+(296)/(9)*(x-2)^2*H[0,-1,x]*Zeta[3]+(424)/(9)*(x+2)^2*H[0,1,x]*Zeta[3];
