{B[SeriesData[\[HBar], 0, {1, 0, (Subscript[c, 1]*Subscript[c, 2])/16, 0, 
    (Subscript[c, 1]^3*Subscript[c, 2])/72 + 
     (35*Subscript[c, 1]^2*Subscript[c, 2]^2)/1536 + 
     (Subscript[c, 1]*Subscript[c, 2]^3)/72}, 0, 5, 1], 
  SeriesData[\[HBar], 0, {(h[2]*t[1])/2, (5*h[2]*Subscript[c, 1]*t[1])/24 + 
     (h[1]*Subscript[c, 2]*t[1])/8 + (h[2]*Subscript[c, 2]*t[1])/6 + 
     (h[1]*Subscript[c, 1]*t[2])/24 + (h[1]*Subscript[c, 2]*t[2])/12, 
    (h[2]*Subscript[c, 1]^2*t[1])/16 + 
     (5*h[2]*Subscript[c, 1]*Subscript[c, 2]*t[1])/48 + 
     (h[2]*Subscript[c, 2]^2*t[1])/24 - (h[2]*Subscript[c, 1]^2*t[2])/48 - 
     (h[2]*Subscript[c, 1]*Subscript[c, 2]*t[2])/24, 
    (67*h[2]*Subscript[c, 1]^3*t[1])/2880 + 
     (11*h[1]*Subscript[c, 1]^2*Subscript[c, 2]*t[1])/576 + 
     (17*h[1]*Subscript[c, 1]*Subscript[c, 2]^2*t[1])/576 + 
     (5*h[1]*Subscript[c, 2]^3*t[1])/384 + (91*h[2]*Subscript[c, 2]^3*t[1])/
      5760 + (h[2]*Subscript[c, 1]^2*Subscript[c, 2]*
       (13 + 192*Subscript[\[Gamma], 12])*t[1])/384 + 
     (h[2]*Subscript[c, 1]*Subscript[c, 2]^2*
       (11 + (-17/3 + 960*Subscript[\[Gamma], 12])/5)*t[1])/384 + 
     (23*h[1]*Subscript[c, 1]^3*t[2])/2880 + 
     (h[2]*Subscript[c, 1]^2*Subscript[c, 2]*t[2])/1152 + 
     (13*h[2]*Subscript[c, 1]*Subscript[c, 2]^2*t[2])/1152 + 
     (59*h[1]*Subscript[c, 2]^3*t[2])/5760 + 
     (h[1]*Subscript[c, 1]*Subscript[c, 2]^2*Subscript[\[Gamma], 12]*t[2])/
      2 + (h[1]*Subscript[c, 1]^2*Subscript[c, 2]*
       (-17/3 + 960*Subscript[\[Gamma], 12])*t[2])/1920, 
    (41*h[2]*Subscript[c, 1]^4*t[1])/5760 + (59*h[2]*Subscript[c, 2]^4*t[1])/
      11520 + (h[2]*Subscript[c, 1]*Subscript[c, 2]^3*
       (91/15 + 192*Subscript[\[Gamma], 12])*t[1])/768 + 
     (h[2]*Subscript[c, 1]^3*Subscript[c, 2]*
       (141/5 + 576*Subscript[\[Gamma], 12])*t[1])/2304 + 
     (h[2]*Subscript[c, 1]^2*Subscript[c, 2]^2*
       (91/3 + 1920*Subscript[\[Gamma], 12])*t[1])/3840 - 
     (13*h[2]*Subscript[c, 1]^4*t[2])/5760 - 
     (59*h[2]*Subscript[c, 1]*Subscript[c, 2]^3*t[2])/11520 + 
     (h[2]*Subscript[c, 1]^3*Subscript[c, 2]*
       (248 - 11520*Subscript[\[Gamma], 12])*t[2])/46080 + 
     (h[2]*Subscript[c, 1]^2*Subscript[c, 2]^2*
       (13/576 - Subscript[\[Gamma], 12])*t[2])/4}, 0, 5, 1]], 
 B[SeriesData[\[HBar], 0, {1, Subscript[c, 1]*Subscript[\[Kappa], 1], 
    (Subscript[c, 1]^2*(1 + 16*Subscript[\[Kappa], 1]^2))/32, 
    (Subscript[c, 1]^3*Subscript[\[Kappa], 1]*
      (3 + 16*Subscript[\[Kappa], 1]^2))/96, 
    (Subscript[c, 1]^4*(73/3 + 96*Subscript[\[Kappa], 1]^2 + 
       256*Subscript[\[Kappa], 1]^4))/6144}, 0, 5, 1], 0], 
 {Subscript[\[Gamma], 1] -> 1/12 + Subscript[\[Delta], 10], 
  Subscript[c, 0] -> 0, Subscript[\[Gamma], 30] -> 
   (23 + 120*Subscript[\[Delta], 10] + 480*Subscript[\[Delta], 30])/480, 
  Subscript[\[Delta], 12] -> (13 - 192*Subscript[\[Delta], 10] - 
     2304*Subscript[\[Delta], 10]^2 + 576*Subscript[\[Delta], 30])/576}}
