"Expression for functions \!\(\*SubscriptBox[\(C\), \
\(3\)]\),\!\(\*SubscriptBox[\(D\), \(3\)]\) and \!\(\*SubscriptBox[\(E\), \
\(3\)]\) in terms of \!\(\*SubscriptBox[\(Li\), \(3\)]\) as follows \
{\!\(\*SubscriptBox[\(C\), \(3\)]\),\!\(\*SubscriptBox[\(D\), \
\(3\)]\),\!\(\*SubscriptBox[\(E\), \(3\)]\)}"
{Subscript[C, 3] -> (2*Pi^2*ArcTanh[y])/9 + 2*ArcTanh[y]^3 + 
   (16*ArcTan[Sqrt[3]*y]*Im[PolyLog[2, (-I)/Sqrt[3]]])/5 + 
   (4*Pi*ArcTan[Sqrt[3]*y]*Log[2])/3 - 2*ArcTanh[y]*Log[2]^2 - 
   (4*Pi*ArcTan[Sqrt[3]*y]*Log[3])/15 + ArcTanh[y]*Log[4]*Log[s] + 
   (2*Pi*ArcTan[Sqrt[3]*y]*Log[(3 + s)/4])/3 - 2*ArcTanh[y]*Log[2]*
    Log[(3 + s)/4] + ArcTanh[y]*Log[s]*Log[(3 + s)/4] - 
   (ArcTanh[y]*Log[(3 + s)/4]^2)/2 + Log[s]*PolyLog[2, (1 - y)/2] - 
   Log[s]*PolyLog[2, (1 + y)/2] + 2*PolyLog[3, (1 - y)/2] - 
   2*PolyLog[3, (1 + y)/2] - 
   2*Re[-PolyLog[3, 1 - (-1)^(1/3)/q] + PolyLog[3, 1 - (-1)^(1/3)*q]] + 
   4*Re[PolyLog[3, ((-1)^(1/3)*(1 - I*Sqrt[3]*y))/2] - 
      PolyLog[3, ((-1)^(1/3)*(1 + I*Sqrt[3]*y))/2]], 
 Subscript[D, 3] -> (Pi^2*ArcTanh[y])/6 - 2*ArcTan[Sqrt[3]*y]^2*ArcTanh[y] + 
   (2*ArcTanh[y]^3)/3 - (8*ArcTan[Sqrt[3]*y]*Im[PolyLog[2, (-I)/Sqrt[3]]])/
    5 + (7*Pi*ArcTan[Sqrt[3]*y]*Log[3])/15 - (ArcTanh[y]*Log[3]^2)/2 + 
   (Pi*ArcTan[Sqrt[3]*y]*Log[s])/3 + ArcTanh[y]*Log[3]*Log[s] + 
   (ArcTanh[y]*Log[s]^2)/2 - Log[s]*Re[-PolyLog[2, (-1)^(1/3)/q] + 
      PolyLog[2, (-1)^(1/3)*q]] + 
   2*Re[PolyLog[3, ((-1)^(1/6) - I*q)/Sqrt[3]] - 
      PolyLog[3, (-I + (-1)^(1/6)*q)/(Sqrt[3]*q)]] - 
   2*Re[-PolyLog[3, 1 - (-1)^(1/3)/q] + PolyLog[3, 1 - (-1)^(1/3)*q]], 
 Subscript[E, 3] -> -(Pi^2*ArcTanh[y])/9 + (8*ArcTanh[y]^3)/3 - 
   (24*ArcTan[Sqrt[3]*y]*Im[PolyLog[2, (-I)/Sqrt[3]]])/5 + 
   (2*Pi*ArcTan[Sqrt[3]*y]*Log[3])/5 + (2*Pi*ArcTan[Sqrt[3]*y]*Log[s])/3 + 
   ArcTanh[y]*Log[4]*Log[s] + ArcTanh[y]*Log[s]*Log[(3 + s)/4] + 
   Log[s]*PolyLog[2, (1 - y)/2] - 2*Log[s]*PolyLog[2, -y] + 
   2*Log[s]*PolyLog[2, y] - Log[s]*PolyLog[2, (1 + y)/2] + 
   2*Re[PolyLog[3, 1 - (-1)^(1/3)/q]] - 
   4*Re[PolyLog[3, (-1)^(2/3)*(-1 + q)]] + 
   4*Re[PolyLog[3, -(((-1)^(2/3)*(-1 + q))/q)]] - 
   2*Re[PolyLog[3, 1 - (-1)^(1/3)*q]] - 
   4*Re[PolyLog[3, ((I + Sqrt[3])*y)/(-I + Sqrt[3]*y)]] + 
   4*Re[PolyLog[3, ((I + Sqrt[3])*y)/(I + Sqrt[3]*y)]]}
