{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, 
    (-661*Subscript[c, 1]^5*Subscript[c, 2])/691200 - 
     (421*Subscript[c, 1]^4*Subscript[c, 2]^2)/276480 - 
     (6121*Subscript[c, 1]^3*Subscript[c, 2]^3)/3317760 - 
     (421*Subscript[c, 1]^2*Subscript[c, 2]^4)/276480 - 
     (661*Subscript[c, 1]*Subscript[c, 2]^5)/691200}, 0, 7, 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 + 
     (13*h[2]*Subscript[c, 1]^2*Subscript[c, 2]*t[1])/384 + 
     (17*h[1]*Subscript[c, 1]*Subscript[c, 2]^2*t[1])/576 + 
     (37*h[2]*Subscript[c, 1]*Subscript[c, 2]^2*t[1])/1440 + 
     (5*h[1]*Subscript[c, 2]^3*t[1])/384 + (91*h[2]*Subscript[c, 2]^3*t[1])/
      5760 + (23*h[1]*Subscript[c, 1]^3*t[2])/2880 - 
     (17*h[1]*Subscript[c, 1]^2*Subscript[c, 2]*t[2])/5760 + 
     (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, 
    (41*h[2]*Subscript[c, 1]^4*t[1])/5760 + 
     (47*h[2]*Subscript[c, 1]^3*Subscript[c, 2]*t[1])/3840 + 
     (91*h[2]*Subscript[c, 1]^2*Subscript[c, 2]^2*t[1])/11520 + 
     (91*h[2]*Subscript[c, 1]*Subscript[c, 2]^3*t[1])/11520 + 
     (59*h[2]*Subscript[c, 2]^4*t[1])/11520 - 
     (13*h[2]*Subscript[c, 1]^4*t[2])/5760 + 
     (31*h[2]*Subscript[c, 1]^3*Subscript[c, 2]*t[2])/5760 + 
     (13*h[2]*Subscript[c, 1]^2*Subscript[c, 2]^2*t[2])/2304 - 
     (59*h[2]*Subscript[c, 1]*Subscript[c, 2]^3*t[2])/11520, 
    (27053*h[2]*Subscript[c, 1]^5*t[1])/14515200 - 
     (781*h[1]*Subscript[c, 1]^4*Subscript[c, 2]*t[1])/414720 + 
     (11*h[1]*Subscript[c, 1]^3*Subscript[c, 2]^2*t[1])/4608 + 
     (961*h[1]*Subscript[c, 1]^2*Subscript[c, 2]^3*t[1])/414720 - 
     (7*h[1]*Subscript[c, 1]*Subscript[c, 2]^4*t[1])/15360 + 
     (757*h[1]*Subscript[c, 2]^5*t[1])/1036800 + 
     (16193*h[2]*Subscript[c, 2]^5*t[1])/14515200 + 
     (h[2]*Subscript[c, 1]^3*Subscript[c, 2]^2*
       (66 + 1920*Subscript[\[Gamma], 23])*t[1])/23040 + 
     (h[2]*Subscript[c, 1]^2*Subscript[c, 2]^3*
       (46 + (2*(205/2 + 20160*Subscript[\[Gamma], 23]))/21)*t[1])/23040 + 
     (h[2]*Subscript[c, 1]*Subscript[c, 2]^4*
       (55/6 + 160*Subscript[\[Gamma], 41])*t[1])/3840 + 
     (h[2]*Subscript[c, 1]^4*Subscript[c, 2]*
       (84 + (-40/3 + 6720*Subscript[\[Gamma], 41])/7)*t[1])/23040 - 
     (187*h[1]*Subscript[c, 1]^5*t[2])/14515200 - 
     (1771*h[2]*Subscript[c, 1]^5*t[2])/2073600 + 
     (1537*h[2]*Subscript[c, 1]^3*Subscript[c, 2]^2*t[2])/414720 - 
     (1249*h[2]*Subscript[c, 1]*Subscript[c, 2]^4*t[2])/414720 + 
     (5003*h[1]*Subscript[c, 2]^5*t[2])/14515200 + 
     (h[1]*Subscript[c, 1]^2*Subscript[c, 2]^3*Subscript[\[Gamma], 23]*t[2])/
      12 + (h[1]*Subscript[c, 1]^3*Subscript[c, 2]^2*
       (205/2 + 20160*Subscript[\[Gamma], 23])*t[2])/241920 + 
     (h[1]*Subscript[c, 1]^4*Subscript[c, 2]*Subscript[\[Gamma], 41]*t[2])/
      24 + (h[1]*Subscript[c, 1]*Subscript[c, 2]^4*
       (-40/3 + 6720*Subscript[\[Gamma], 41])*t[2])/161280, 
    (11873*h[2]*Subscript[c, 1]^6*t[1])/29030400 + 
     (5003*h[2]*Subscript[c, 2]^6*t[1])/29030400 + 
     (h[2]*Subscript[c, 1]^3*Subscript[c, 2]^3*
       (739/2 + 40320*Subscript[\[Gamma], 23])*t[1])/483840 + 
     (h[2]*Subscript[c, 1]^4*Subscript[c, 2]^2*
       (115/12 + 480*Subscript[\[Gamma], 23] + 240*Subscript[\[Gamma], 41])*
       t[1])/11520 + (h[2]*Subscript[c, 1]^2*Subscript[c, 2]^4*
       (106 + 5760*Subscript[\[Gamma], 23] + 2880*Subscript[\[Gamma], 41])*
       t[1])/138240 + (h[2]*Subscript[c, 1]*Subscript[c, 2]^5*
       (14993/90 + 6720*Subscript[\[Gamma], 41])*t[1])/322560 + 
     (h[2]*Subscript[c, 1]^5*Subscript[c, 2]*(26123/90 + 
        6720*Subscript[\[Gamma], 41])*t[1])/322560 - 
     (253*h[2]*Subscript[c, 1]^6*t[2])/967680 - 
     (5003*h[2]*Subscript[c, 1]*Subscript[c, 2]^5*t[2])/29030400 + 
     (h[2]*Subscript[c, 1]^4*Subscript[c, 2]^2*
       (6799/6 - 40320*Subscript[\[Gamma], 23])*t[2])/967680 + 
     (h[2]*Subscript[c, 1]^3*Subscript[c, 2]^3*
       (59 - 5760*Subscript[\[Gamma], 23])*t[2])/138240 + 
     (h[2]*Subscript[c, 1]^2*Subscript[c, 2]^4*(-85030/3 - 
        403200*Subscript[\[Gamma], 41])*t[2])/19353600 + 
     (h[2]*Subscript[c, 1]^5*Subscript[c, 2]*
       (-280 - 11520*Subscript[\[Gamma], 41])*t[2])/552960}, 0, 7, 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, 
    (Subscript[c, 1]^5*Subscript[\[Kappa], 1]*
      (365/3 + 160*Subscript[\[Kappa], 1]^2 + 256*Subscript[\[Kappa], 1]^4))/
     30720, (Subscript[c, 1]^6*(-6077/3 + 87600*Subscript[\[Kappa], 1]^2 + 
       57600*Subscript[\[Kappa], 1]^4 + 61440*Subscript[\[Kappa], 1]^6))/
     44236800}, 0, 7, 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, 
  Subscript[\[Gamma], 50] -> (-187 + 181440*Subscript[\[Gamma], 12] + 
     65016*Subscript[\[Delta], 10] + 483840*Subscript[\[Gamma], 12]*
      Subscript[\[Delta], 10] + 322560*Subscript[\[Delta], 10]^2 - 
     967680*Subscript[\[Delta], 10]^3 + 80640*Subscript[\[Delta], 23] - 
     47040*Subscript[\[Delta], 30] + 806400*Subscript[\[Delta], 10]*
      Subscript[\[Delta], 30] + 40320*Subscript[\[Delta], 41])/120960, 
  Subscript[\[Delta], 50] -> (-1771 + 25920*Subscript[\[Gamma], 12] - 
     7272*Subscript[\[Delta], 10] + 69120*Subscript[\[Gamma], 12]*
      Subscript[\[Delta], 10] + 46080*Subscript[\[Delta], 10]^2 - 
     138240*Subscript[\[Delta], 10]^3 + 11520*Subscript[\[Delta], 23] - 
     21120*Subscript[\[Delta], 30] + 115200*Subscript[\[Delta], 10]*
      Subscript[\[Delta], 30] + 5760*Subscript[\[Delta], 41])/17280}}
