c[0, 0] = (M*omega^2*x^2)/2 - x*Sin[OMEGA*t]
 
c[1/2, 0] = 0
 
c[1, 0] = (I/12)*M*omega^2
 
c[1, 1] = (M*omega^2)/6
 
c[3/2, 0] = -(OMEGA*Cos[OMEGA*t])/6
 
c[3/2, 1] = 0
 
c[2, 0] = (M^2*omega^4*x^2)/24 - (M*omega^2*x*Sin[OMEGA*t])/12 + 
    (OMEGA^2*x*Sin[OMEGA*t])/24 + Sin[OMEGA*t]^2/24
 
c[2, 1] = 0
 
c[2, 2] = 0
 
c[5/2, 0] = 0
 
c[5/2, 1] = 0
 
c[5/2, 2] = 0
 
c[3, 0] = (I/360)*M^2*omega^4
 
c[3, 1] = (M^2*omega^4)/360
 
c[3, 2] = 0
 
c[3, 3] = 0
 
c[7/2, 0] = -(M*omega^2*OMEGA*Cos[OMEGA*t])/360 + (OMEGA^3*Cos[OMEGA*t])/240
 
c[7/2, 1] = 0
 
c[7/2, 2] = 0
 
c[7/2, 3] = 0
 
c[4, 0] = (M^3*omega^6*x^2)/240 + (OMEGA^2*Cos[OMEGA*t]^2)/1440 - 
    (M^2*omega^4*x*Sin[OMEGA*t])/120 + (M*omega^2*OMEGA^2*x*Sin[OMEGA*t])/
     480 - (OMEGA^4*x*Sin[OMEGA*t])/1920 + (M*omega^2*Sin[OMEGA*t]^2)/240 - 
    (OMEGA^2*Sin[OMEGA*t]^2)/480
 
c[4, 1] = 0
 
c[4, 2] = 0
 
c[4, 3] = 0
 
c[4, 4] = 0
 
c[9/2, 0] = 0
 
c[9/2, 1] = 0
 
c[9/2, 2] = 0
 
c[9/2, 3] = 0
 
c[9/2, 4] = 0
 
c[5, 0] = (I/5670)*M^3*omega^6
 
c[5, 1] = (M^3*omega^6)/15120
 
c[5, 2] = 0
 
c[5, 3] = 0
 
c[5, 4] = 0
 
c[5, 5] = 0
 
c[11/2, 0] = -(M^2*omega^4*OMEGA*Cos[OMEGA*t])/15120 + 
    (M*omega^2*OMEGA^3*Cos[OMEGA*t])/20160 - (OMEGA^5*Cos[OMEGA*t])/26880
 
c[11/2, 1] = 0
 
c[11/2, 2] = 0
 
c[11/2, 3] = 0
 
c[11/2, 4] = 0
 
c[11/2, 5] = 0
 
c[6, 0] = (17*M^4*omega^8*x^2)/40320 + (M*omega^2*OMEGA^2*Cos[OMEGA*t]^2)/
     60480 - (OMEGA^4*Cos[OMEGA*t]^2)/40320 - (17*M^3*omega^6*x*Sin[OMEGA*t])/
     20160 + (M^2*omega^4*OMEGA^2*x*Sin[OMEGA*t])/5040 - 
    (M*omega^2*OMEGA^4*x*Sin[OMEGA*t])/53760 + (OMEGA^6*x*Sin[OMEGA*t])/
     322560 + (17*M^2*omega^4*Sin[OMEGA*t]^2)/40320 - 
    (M*omega^2*OMEGA^2*Sin[OMEGA*t]^2)/5040 + (OMEGA^4*Sin[OMEGA*t]^2)/20160
 
c[6, 1] = 0
 
c[6, 2] = 0
 
c[6, 3] = 0
 
c[6, 4] = 0
 
c[6, 5] = 0
 
c[6, 6] = 0
 
c[13/2, 0] = 0
 
c[13/2, 1] = 0
 
c[13/2, 2] = 0
 
c[13/2, 3] = 0
 
c[13/2, 4] = 0
 
c[13/2, 5] = 0
 
c[13/2, 6] = 0
 
c[7, 0] = (I/75600)*M^4*omega^8
 
c[7, 1] = (M^4*omega^8)/604800
 
c[7, 2] = 0
 
c[7, 3] = 0
 
c[7, 4] = 0
 
c[7, 5] = 0
 
c[7, 6] = 0
 
c[7, 7] = 0
 
c[15/2, 0] = -(M^3*omega^6*OMEGA*Cos[OMEGA*t])/604800 + 
    (M^2*omega^4*OMEGA^3*Cos[OMEGA*t])/907200 - 
    (M*omega^2*OMEGA^5*Cos[OMEGA*t])/2903040 + (OMEGA^7*Cos[OMEGA*t])/5806080
 
c[15/2, 1] = 0
 
c[15/2, 2] = 0
 
c[15/2, 3] = 0
 
c[15/2, 4] = 0
 
c[15/2, 5] = 0
 
c[15/2, 6] = 0
 
c[15/2, 7] = 0
 
c[8, 0] = (31*M^5*omega^10*x^2)/725760 + (M^2*omega^4*OMEGA^2*Cos[OMEGA*t]^2)/
     2419200 - (M*omega^2*OMEGA^4*Cos[OMEGA*t]^2)/1814400 + 
    (OMEGA^6*Cos[OMEGA*t]^2)/2419200 - (31*M^4*omega^8*x*Sin[OMEGA*t])/
     362880 + (29*M^3*omega^6*OMEGA^2*x*Sin[OMEGA*t])/1451520 - 
    (M^2*omega^4*OMEGA^4*x*Sin[OMEGA*t])/580608 + 
    (M*omega^2*OMEGA^6*x*Sin[OMEGA*t])/11612160 - (OMEGA^8*x*Sin[OMEGA*t])/
     92897280 + (31*M^3*omega^6*Sin[OMEGA*t]^2)/725760 - 
    (29*M^2*omega^4*OMEGA^2*Sin[OMEGA*t]^2)/1451520 + 
    (M*omega^2*OMEGA^4*Sin[OMEGA*t]^2)/241920 - (OMEGA^6*Sin[OMEGA*t]^2)/
     1451520
 
c[8, 1] = 0
 
c[8, 2] = 0
 
c[8, 3] = 0
 
c[8, 4] = 0
 
c[8, 5] = 0
 
c[8, 6] = 0
 
c[8, 7] = 0
 
c[8, 8] = 0
 
c[17/2, 0] = 0
 
c[17/2, 1] = 0
 
c[17/2, 2] = 0
 
c[17/2, 3] = 0
 
c[17/2, 4] = 0
 
c[17/2, 5] = 0
 
c[17/2, 6] = 0
 
c[17/2, 7] = 0
 
c[17/2, 8] = 0
 
c[9, 0] = (I/935550)*M^5*omega^10
 
c[9, 1] = (M^5*omega^10)/23950080
 
c[9, 2] = 0
 
c[9, 3] = 0
 
c[9, 4] = 0
 
c[9, 5] = 0
 
c[9, 6] = 0
 
c[9, 7] = 0
 
c[9, 8] = 0
 
c[9, 9] = 0
 
c[19/2, 0] = -(M^4*omega^8*OMEGA*Cos[OMEGA*t])/23950080 + 
    (13*M^3*omega^6*OMEGA^3*Cos[OMEGA*t])/479001600 - 
    (M^2*omega^4*OMEGA^5*Cos[OMEGA*t])/136857600 + 
    (M*omega^2*OMEGA^7*Cos[OMEGA*t])/766402560 - (OMEGA^9*Cos[OMEGA*t])/
     2043740160
 
c[19/2, 1] = 0
 
c[19/2, 2] = 0
 
c[19/2, 3] = 0
 
c[19/2, 4] = 0
 
c[19/2, 5] = 0
 
c[19/2, 6] = 0
 
c[19/2, 7] = 0
 
c[19/2, 8] = 0
 
c[19/2, 9] = 0
 
c[10, 0] = (691*M^6*omega^12*x^2)/159667200 + 
    (M^3*omega^6*OMEGA^2*Cos[OMEGA*t]^2)/95800320 - 
    (13*M^2*omega^4*OMEGA^4*Cos[OMEGA*t]^2)/958003200 + 
    (M*omega^2*OMEGA^6*Cos[OMEGA*t]^2)/119750400 - 
    (OMEGA^8*Cos[OMEGA*t]^2)/239500800 - (691*M^5*omega^10*x*Sin[OMEGA*t])/
     79833600 + (323*M^4*omega^8*OMEGA^2*x*Sin[OMEGA*t])/159667200 - 
    (221*M^3*omega^6*OMEGA^4*x*Sin[OMEGA*t])/1277337600 + 
    (M^2*omega^4*OMEGA^6*x*Sin[OMEGA*t])/127733760 - 
    (M*omega^2*OMEGA^8*x*Sin[OMEGA*t])/4087480320 + 
    (OMEGA^10*x*Sin[OMEGA*t])/40874803200 + (691*M^4*omega^8*Sin[OMEGA*t]^2)/
     159667200 - (323*M^3*omega^6*OMEGA^2*Sin[OMEGA*t]^2)/159667200 + 
    (131*M^2*omega^4*OMEGA^4*Sin[OMEGA*t]^2)/319334400 - 
    (M*omega^2*OMEGA^6*Sin[OMEGA*t]^2)/19958400 + (OMEGA^8*Sin[OMEGA*t]^2)/
     159667200
 
c[10, 1] = 0
 
c[10, 2] = 0
 
c[10, 3] = 0
 
c[10, 4] = 0
 
c[10, 5] = 0
 
c[10, 6] = 0
 
c[10, 7] = 0
 
c[10, 8] = 0
 
c[10, 9] = 0
 
c[10, 10] = 0
 
c[21/2, 0] = 0
 
c[21/2, 1] = 0
 
c[21/2, 2] = 0
 
c[21/2, 3] = 0
 
c[21/2, 4] = 0
 
c[21/2, 5] = 0
 
c[21/2, 6] = 0
 
c[21/2, 7] = 0
 
c[21/2, 8] = 0
 
c[21/2, 9] = 0
 
c[21/2, 10] = 0
 
c[11, 0] = ((691*I)/7662154500)*M^6*omega^12
 
c[11, 1] = (691*M^6*omega^12)/653837184000
 
c[11, 2] = 0
 
c[11, 3] = 0
 
c[11, 4] = 0
 
c[11, 5] = 0
 
c[11, 6] = 0
 
c[11, 7] = 0
 
c[11, 8] = 0
 
c[11, 9] = 0
 
c[11, 10] = 0
 
c[11, 11] = 0
 
c[23/2, 0] = (-691*M^5*omega^10*OMEGA*Cos[OMEGA*t])/653837184000 + 
    (893*M^4*omega^8*OMEGA^3*Cos[OMEGA*t])/1307674368000 - 
    (373*M^3*omega^6*OMEGA^5*Cos[OMEGA*t])/2092278988800 + 
    (M^2*omega^4*OMEGA^7*Cos[OMEGA*t])/37362124800 - 
    (M*omega^2*OMEGA^9*Cos[OMEGA*t])/318823464960 + 
    (OMEGA^11*Cos[OMEGA*t])/1062744883200
 
c[23/2, 1] = 0
 
c[23/2, 2] = 0
 
c[23/2, 3] = 0
 
c[23/2, 4] = 0
 
c[23/2, 5] = 0
 
c[23/2, 6] = 0
 
c[23/2, 7] = 0
 
c[23/2, 8] = 0
 
c[23/2, 9] = 0
 
c[23/2, 10] = 0
 
c[23/2, 11] = 0
 
c[12, 0] = (5461*M^7*omega^14*x^2)/12454041600 + 
    (691*M^4*omega^8*OMEGA^2*Cos[OMEGA*t]^2)/2615348736000 - 
    (893*M^3*omega^6*OMEGA^4*Cos[OMEGA*t]^2)/2615348736000 + 
    (263*M^2*omega^4*OMEGA^6*Cos[OMEGA*t]^2)/1307674368000 - 
    (M*omega^2*OMEGA^8*Cos[OMEGA*t]^2)/13076743680 + 
    (OMEGA^10*Cos[OMEGA*t]^2)/34871316480 - 
    (5461*M^6*omega^12*x*Sin[OMEGA*t])/6227020800 + 
    (1021*M^5*omega^10*OMEGA^2*x*Sin[OMEGA*t])/4981616640 - 
    (349*M^4*omega^8*OMEGA^4*x*Sin[OMEGA*t])/19926466560 + 
    (313*M^3*omega^6*OMEGA^6*x*Sin[OMEGA*t])/398529331200 - 
    (M^2*omega^4*OMEGA^8*x*Sin[OMEGA*t])/45546209280 + 
    (M*omega^2*OMEGA^10*x*Sin[OMEGA*t])/2125489766400 - 
    (OMEGA^12*x*Sin[OMEGA*t])/25505877196800 + 
    (5461*M^5*omega^10*Sin[OMEGA*t]^2)/12454041600 - 
    (1021*M^4*omega^8*OMEGA^2*Sin[OMEGA*t]^2)/4981616640 + 
    (1033*M^3*omega^6*OMEGA^4*Sin[OMEGA*t]^2)/24908083200 - 
    (61*M^2*omega^4*OMEGA^6*Sin[OMEGA*t]^2)/12454041600 + 
    (M*omega^2*OMEGA^8*Sin[OMEGA*t]^2)/2490808320 - 
    (OMEGA^10*Sin[OMEGA*t]^2)/24908083200
 
c[12, 1] = 0
 
c[12, 2] = 0
 
c[12, 3] = 0
 
c[12, 4] = 0
 
c[12, 5] = 0
 
c[12, 6] = 0
 
c[12, 7] = 0
 
c[12, 8] = 0
 
c[12, 9] = 0
 
c[12, 10] = 0
 
c[12, 11] = 0
 
c[12, 12] = 0
 
c[25/2, 0] = 0
 
c[25/2, 1] = 0
 
c[25/2, 2] = 0
 
c[25/2, 3] = 0
 
c[25/2, 4] = 0
 
c[25/2, 5] = 0
 
c[25/2, 6] = 0
 
c[25/2, 7] = 0
 
c[25/2, 8] = 0
 
c[25/2, 9] = 0
 
c[25/2, 10] = 0
 
c[25/2, 11] = 0
 
c[25/2, 12] = 0
 
c[13, 0] = (I/127702575)*M^7*omega^14
 
c[13, 1] = (M^7*omega^14)/37362124800
 
c[13, 2] = 0
 
c[13, 3] = 0
 
c[13, 4] = 0
 
c[13, 5] = 0
 
c[13, 6] = 0
 
c[13, 7] = 0
 
c[13, 8] = 0
 
c[13, 9] = 0
 
c[13, 10] = 0
 
c[13, 11] = 0
 
c[13, 12] = 0
 
c[13, 13] = 0
 
c[27/2, 0] = -(M^6*omega^12*OMEGA*Cos[OMEGA*t])/37362124800 + 
    (271*M^5*omega^10*OMEGA^3*Cos[OMEGA*t])/15692092416000 - 
    (281*M^4*omega^8*OMEGA^5*Cos[OMEGA*t])/62768369664000 + 
    (163*M^3*omega^6*OMEGA^7*Cos[OMEGA*t])/251073478656000 - 
    (M^2*omega^4*OMEGA^9*Cos[OMEGA*t])/15941173248000 + 
    (M*omega^2*OMEGA^11*Cos[OMEGA*t])/191294078976000 - 
    (OMEGA^13*Cos[OMEGA*t])/765176315904000
 
c[27/2, 1] = 0
 
c[27/2, 2] = 0
 
c[27/2, 3] = 0
 
c[27/2, 4] = 0
 
c[27/2, 5] = 0
 
c[27/2, 6] = 0
 
c[27/2, 7] = 0
 
c[27/2, 8] = 0
 
c[27/2, 9] = 0
 
c[27/2, 10] = 0
 
c[27/2, 11] = 0
 
c[27/2, 12] = 0
 
c[27/2, 13] = 0
 
c[14, 0] = (929569*M^8*omega^16*x^2)/20922789888000 + 
    (M^5*omega^10*OMEGA^2*Cos[OMEGA*t]^2)/149448499200 - 
    (271*M^4*omega^8*OMEGA^4*Cos[OMEGA*t]^2)/31384184832000 + 
    (79*M^3*omega^6*OMEGA^6*Cos[OMEGA*t]^2)/15692092416000 - 
    (113*M^2*omega^4*OMEGA^8*Cos[OMEGA*t]^2)/62768369664000 + 
    (M*omega^2*OMEGA^10*Cos[OMEGA*t]^2)/2092278988800 - 
    (OMEGA^12*Cos[OMEGA*t]^2)/6974263296000 - 
    (929569*M^7*omega^14*x*Sin[OMEGA*t])/10461394944000 + 
    (217241*M^6*omega^12*OMEGA^2*x*Sin[OMEGA*t])/10461394944000 - 
    (74251*M^5*omega^10*OMEGA^4*x*Sin[OMEGA*t])/41845579776000 + 
    (6653*M^4*omega^8*OMEGA^6*x*Sin[OMEGA*t])/83691159552000 - 
    (421*M^3*omega^6*OMEGA^8*x*Sin[OMEGA*t])/191294078976000 + 
    (M^2*omega^4*OMEGA^10*x*Sin[OMEGA*t])/23911759872000 - 
    (M*omega^2*OMEGA^12*x*Sin[OMEGA*t])/1530352631808000 + 
    (OMEGA^14*x*Sin[OMEGA*t])/21424936845312000 + 
    (929569*M^6*omega^12*Sin[OMEGA*t]^2)/20922789888000 - 
    (217241*M^5*omega^10*OMEGA^2*Sin[OMEGA*t]^2)/10461394944000 + 
    (29299*M^4*omega^8*OMEGA^4*Sin[OMEGA*t]^2)/6974263296000 - 
    (431*M^3*omega^6*OMEGA^6*Sin[OMEGA*t]^2)/871782912000 + 
    (M^2*omega^4*OMEGA^8*Sin[OMEGA*t]^2)/25830604800 - 
    (M*omega^2*OMEGA^10*Sin[OMEGA*t]^2)/435891456000 + 
    (OMEGA^12*Sin[OMEGA*t]^2)/5230697472000
 
c[14, 1] = 0
 
c[14, 2] = 0
 
c[14, 3] = 0
 
c[14, 4] = 0
 
c[14, 5] = 0
 
c[14, 6] = 0
 
c[14, 7] = 0
 
c[14, 8] = 0
 
c[14, 9] = 0
 
c[14, 10] = 0
 
c[14, 11] = 0
 
c[14, 12] = 0
 
c[14, 13] = 0
 
c[14, 14] = 0
 
c[29/2, 0] = 0
 
c[29/2, 1] = 0
 
c[29/2, 2] = 0
 
c[29/2, 3] = 0
 
c[29/2, 4] = 0
 
c[29/2, 5] = 0
 
c[29/2, 6] = 0
 
c[29/2, 7] = 0
 
c[29/2, 8] = 0
 
c[29/2, 9] = 0
 
c[29/2, 10] = 0
 
c[29/2, 11] = 0
 
c[29/2, 12] = 0
 
c[29/2, 13] = 0
 
c[29/2, 14] = 0
 
c[15, 0] = ((3617*I)/5210265060000)*M^8*omega^16
 
c[15, 1] = (3617*M^8*omega^16)/5335311421440000
 
c[15, 2] = 0
 
c[15, 3] = 0
 
c[15, 4] = 0
 
c[15, 5] = 0
 
c[15, 6] = 0
 
c[15, 7] = 0
 
c[15, 8] = 0
 
c[15, 9] = 0
 
c[15, 10] = 0
 
c[15, 11] = 0
 
c[15, 12] = 0
 
c[15, 13] = 0
 
c[15, 14] = 0
 
c[15, 15] = 0
 
c[31/2, 0] = (-3617*M^7*omega^14*OMEGA*Cos[OMEGA*t])/5335311421440000 + 
    (2333*M^6*omega^12*OMEGA^3*Cos[OMEGA*t])/5335311421440000 - 
    (23*M^5*omega^10*OMEGA^5*Cos[OMEGA*t])/203249958912000 + 
    (139*M^4*omega^8*OMEGA^7*Cos[OMEGA*t])/8536498274304000 - 
    (23*M^3*omega^6*OMEGA^9*Cos[OMEGA*t])/15175996932096000 + 
    (M^2*omega^4*OMEGA^11*Cos[OMEGA*t])/9755998027776000 - 
    (M*omega^2*OMEGA^13*Cos[OMEGA*t])/156095968444416000 + 
    (OMEGA^15*Cos[OMEGA*t])/728447852740608000
 
c[31/2, 1] = 0
 
c[31/2, 2] = 0
 
c[31/2, 3] = 0
 
c[31/2, 4] = 0
 
c[31/2, 5] = 0
 
c[31/2, 6] = 0
 
c[31/2, 7] = 0
 
c[31/2, 8] = 0
 
c[31/2, 9] = 0
 
c[31/2, 10] = 0
 
c[31/2, 11] = 0
 
c[31/2, 12] = 0
 
c[31/2, 13] = 0
 
c[31/2, 14] = 0
 
c[31/2, 15] = 0
 
c[16, 0] = (3202291*M^9*omega^18*x^2)/711374856192000 + 
    (3617*M^6*omega^12*OMEGA^2*Cos[OMEGA*t]^2)/21341245685760000 - 
    (2333*M^5*omega^10*OMEGA^4*Cos[OMEGA*t]^2)/10670622842880000 + 
    (1163*M^4*omega^8*OMEGA^6*Cos[OMEGA*t]^2)/9146248151040000 - 
    (41*M^3*omega^6*OMEGA^8*Cos[OMEGA*t]^2)/914624815104000 + 
    (47*M^2*omega^4*OMEGA^10*Cos[OMEGA*t]^2)/4268249137152000 - 
    (M*omega^2*OMEGA^12*Cos[OMEGA*t]^2)/457312407552000 + 
    (OMEGA^14*Cos[OMEGA*t]^2)/1829249630208000 - 
    (3202291*M^8*omega^16*x*Sin[OMEGA*t])/355687428096000 + 
    (2993509*M^7*omega^14*OMEGA^2*x*Sin[OMEGA*t])/1422749712384000 - 
    (42631*M^6*omega^12*OMEGA^4*x*Sin[OMEGA*t])/237124952064000 + 
    (45833*M^5*omega^10*OMEGA^6*x*Sin[OMEGA*t])/5690998849536000 - 
    (10141*M^4*omega^8*OMEGA^8*x*Sin[OMEGA*t])/45527990796288000 + 
    (109*M^3*omega^6*OMEGA^10*x*Sin[OMEGA*t])/26015994740736000 - 
    (M^2*omega^4*OMEGA^12*x*Sin[OMEGA*t])/17343996493824000 + 
    (M*omega^2*OMEGA^14*x*Sin[OMEGA*t])/1456895705481216000 - 
    (OMEGA^16*x*Sin[OMEGA*t])/23310331287699456000 + 
    (3202291*M^7*omega^14*Sin[OMEGA*t]^2)/711374856192000 - 
    (2993509*M^6*omega^12*OMEGA^2*Sin[OMEGA*t]^2)/1422749712384000 + 
    (10093*M^5*omega^10*OMEGA^4*Sin[OMEGA*t]^2)/23712495206400 - 
    (10177*M^4*omega^8*OMEGA^6*Sin[OMEGA*t]^2)/203249958912000 + 
    (347*M^3*omega^6*OMEGA^8*Sin[OMEGA*t]^2)/88921857024000 - 
    (311*M^2*omega^4*OMEGA^10*Sin[OMEGA*t]^2)/1422749712384000 + 
    (M*omega^2*OMEGA^12*Sin[OMEGA*t]^2)/101624979456000 - 
    (OMEGA^14*Sin[OMEGA*t]^2)/1422749712384000
 
c[16, 1] = 0
 
c[16, 2] = 0
 
c[16, 3] = 0
 
c[16, 4] = 0
 
c[16, 5] = 0
 
c[16, 6] = 0
 
c[16, 7] = 0
 
c[16, 8] = 0
 
c[16, 9] = 0
 
c[16, 10] = 0
 
c[16, 11] = 0
 
c[16, 12] = 0
 
c[16, 13] = 0
 
c[16, 14] = 0
 
c[16, 15] = 0
 
c[16, 16] = 0
 
c[33/2, 0] = 0
 
c[33/2, 1] = 0
 
c[33/2, 2] = 0
 
c[33/2, 3] = 0
 
c[33/2, 4] = 0
 
c[33/2, 5] = 0
 
c[33/2, 6] = 0
 
c[33/2, 7] = 0
 
c[33/2, 8] = 0
 
c[33/2, 9] = 0
 
c[33/2, 10] = 0
 
c[33/2, 11] = 0
 
c[33/2, 12] = 0
 
c[33/2, 13] = 0
 
c[33/2, 14] = 0
 
c[33/2, 15] = 0
 
c[33/2, 16] = 0
 
c[17, 0] = ((43867*I)/701627318642250)*M^9*omega^18
 
c[17, 1] = (43867*M^9*omega^18)/2554547108585472000
 
c[17, 2] = 0
 
c[17, 3] = 0
 
c[17, 4] = 0
 
c[17, 5] = 0
 
c[17, 6] = 0
 
c[17, 7] = 0
 
c[17, 8] = 0
 
c[17, 9] = 0
 
c[17, 10] = 0
 
c[17, 11] = 0
 
c[17, 12] = 0
 
c[17, 13] = 0
 
c[17, 14] = 0
 
c[17, 15] = 0
 
c[17, 16] = 0
 
c[17, 17] = 0
 
c[35/2, 0] = (-43867*M^8*omega^16*OMEGA*Cos[OMEGA*t])/2554547108585472000 + 
    (565843*M^7*omega^14*OMEGA^3*Cos[OMEGA*t])/51090942171709440000 - 
    (36593*M^6*omega^12*OMEGA^5*Cos[OMEGA*t])/12772735542927360000 + 
    (12013*M^5*omega^10*OMEGA^7*Cos[OMEGA*t])/29194824098119680000 - 
    (2957*M^4*omega^8*OMEGA^9*Cos[OMEGA*t])/77852864261652480000 + 
    (769*M^3*omega^6*OMEGA^11*Cos[OMEGA*t])/311411457046609920000 - 
    (M^2*omega^4*OMEGA^13*Cos[OMEGA*t])/8088609273937920000 + 
    (M*omega^2*OMEGA^15*Cos[OMEGA*t])/166086110424858624000 - 
    (OMEGA^17*Cos[OMEGA*t])/885792588932579328000
 
c[35/2, 1] = 0
 
c[35/2, 2] = 0
 
c[35/2, 3] = 0
 
c[35/2, 4] = 0
 
c[35/2, 5] = 0
 
c[35/2, 6] = 0
 
c[35/2, 7] = 0
 
c[35/2, 8] = 0
 
c[35/2, 9] = 0
 
c[35/2, 10] = 0
 
c[35/2, 11] = 0
 
c[35/2, 12] = 0
 
c[35/2, 13] = 0
 
c[35/2, 14] = 0
 
c[35/2, 15] = 0
 
c[35/2, 16] = 0
 
c[35/2, 17] = 0
 
c[18, 0] = (221930581*M^10*omega^20*x^2)/486580401635328000 + 
    (43867*M^7*omega^14*OMEGA^2*Cos[OMEGA*t]^2)/10218188434341888000 - 
    (565843*M^6*omega^12*OMEGA^4*Cos[OMEGA*t]^2)/102181884343418880000 + 
    (27407*M^5*omega^10*OMEGA^6*Cos[OMEGA*t]^2)/8515157028618240000 - 
    (115547*M^4*omega^8*OMEGA^8*Cos[OMEGA*t]^2)/102181884343418880000 + 
    (1549*M^3*omega^6*OMEGA^10*Cos[OMEGA*t]^2)/5676771352412160000 - 
    (103*M^2*omega^4*OMEGA^12*Cos[OMEGA*t]^2)/2085344578437120000 + 
    (M*omega^2*OMEGA^14*Cos[OMEGA*t]^2)/130334036152320000 - 
    (OMEGA^16*Cos[OMEGA*t]^2)/608225502044160000 - 
    (221930581*M^9*omega^18*x*Sin[OMEGA*t])/243290200817664000 + 
    (2116951*M^8*omega^16*OMEGA^2*x*Sin[OMEGA*t])/9930212278272000 - 
    (70907569*M^7*omega^14*OMEGA^4*x*Sin[OMEGA*t])/3892643213082624000 + 
    (3176357*M^6*omega^12*OMEGA^6*x*Sin[OMEGA*t])/3892643213082624000 - 
    (28109*M^5*omega^10*OMEGA^8*x*Sin[OMEGA*t])/1245645828186439680 + 
    (8803*M^4*omega^8*OMEGA^10*x*Sin[OMEGA*t])/20760763803107328000 - 
    (137*M^3*omega^6*OMEGA^12*x*Sin[OMEGA*t])/23726587203551232000 + 
    (M^2*omega^4*OMEGA^14*x*Sin[OMEGA*t])/16608611042485862400 - 
    (M*omega^2*OMEGA^16*x*Sin[OMEGA*t])/1771585177865158656000 + 
    (OMEGA^18*x*Sin[OMEGA*t])/31888533201572855808000 + 
    (221930581*M^8*omega^16*Sin[OMEGA*t]^2)/486580401635328000 - 
    (2116951*M^7*omega^14*OMEGA^2*Sin[OMEGA*t]^2)/9930212278272000 + 
    (13989601*M^6*omega^12*OMEGA^4*Sin[OMEGA*t]^2)/324386934423552000 - 
    (49369*M^5*omega^10*OMEGA^6*Sin[OMEGA*t]^2)/9731608032706560 + 
    (54937*M^4*omega^8*OMEGA^8*Sin[OMEGA*t]^2)/139022971895808000 - 
    (10709*M^3*omega^6*OMEGA^10*Sin[OMEGA*t]^2)/486580401635328000 + 
    (43*M^2*omega^4*OMEGA^12*Sin[OMEGA*t]^2)/46340990631936000 - 
    (M*omega^2*OMEGA^14*Sin[OMEGA*t]^2)/30411275102208000 + 
    (OMEGA^16*Sin[OMEGA*t]^2)/486580401635328000
 
c[18, 1] = 0
 
c[18, 2] = 0
 
c[18, 3] = 0
 
c[18, 4] = 0
 
c[18, 5] = 0
 
c[18, 6] = 0
 
c[18, 7] = 0
 
c[18, 8] = 0
 
c[18, 9] = 0
 
c[18, 10] = 0
 
c[18, 11] = 0
 
c[18, 12] = 0
 
c[18, 13] = 0
 
c[18, 14] = 0
 
c[18, 15] = 0
 
c[18, 16] = 0
 
c[18, 17] = 0
 
c[18, 18] = 0
 
c[37/2, 0] = 0
 
c[37/2, 1] = 0
 
c[37/2, 2] = 0
 
c[37/2, 3] = 0
 
c[37/2, 4] = 0
 
c[37/2, 5] = 0
 
c[37/2, 6] = 0
 
c[37/2, 7] = 0
 
c[37/2, 8] = 0
 
c[37/2, 9] = 0
 
c[37/2, 10] = 0
 
c[37/2, 11] = 0
 
c[37/2, 12] = 0
 
c[37/2, 13] = 0
 
c[37/2, 14] = 0
 
c[37/2, 15] = 0
 
c[37/2, 16] = 0
 
c[37/2, 17] = 0
 
c[37/2, 18] = 0
 
c[19, 0] = ((174611*I)/30626589305812500)*M^10*omega^20
 
c[19, 1] = (174611*M^10*omega^20)/401428831349145600000
 
c[19, 2] = 0
 
c[19, 3] = 0
 
c[19, 4] = 0
 
c[19, 5] = 0
 
c[19, 6] = 0
 
c[19, 7] = 0
 
c[19, 8] = 0
 
c[19, 9] = 0
 
c[19, 10] = 0
 
c[19, 11] = 0
 
c[19, 12] = 0
 
c[19, 13] = 0
 
c[19, 14] = 0
 
c[19, 15] = 0
 
c[19, 16] = 0
 
c[19, 17] = 0
 
c[19, 18] = 0
 
c[19, 19] = 0
 
c[39/2, 0] = (-174611*M^9*omega^18*OMEGA*Cos[OMEGA*t])/
     401428831349145600000 + (4729763*M^8*omega^16*OMEGA^3*Cos[OMEGA*t])/
     16860010916664115200000 - (1957387*M^7*omega^14*OMEGA^5*Cos[OMEGA*t])/
     26976017466662584320000 + (281003*M^6*omega^12*OMEGA^7*Cos[OMEGA*t])/
     26976017466662584320000 - (23011*M^5*omega^10*OMEGA^9*Cos[OMEGA*t])/
     23978682192588963840000 + (809*M^4*omega^8*OMEGA^11*Cos[OMEGA*t])/
     13079281195957616640000 - (311*M^3*omega^6*OMEGA^13*Cos[OMEGA*t])/
     104634249567660933120000 + (M^2*omega^4*OMEGA^15*Cos[OMEGA*t])/
     8719520797305077760000 - (M*omega^2*OMEGA^17*Cos[OMEGA*t])/
     223219732411009990656000 + (OMEGA^19*Cos[OMEGA*t])/
     1339318394466059943936000
 
c[39/2, 1] = 0
 
c[39/2, 2] = 0
 
c[39/2, 3] = 0
 
c[39/2, 4] = 0
 
c[39/2, 5] = 0
 
c[39/2, 6] = 0
 
c[39/2, 7] = 0
 
c[39/2, 8] = 0
 
c[39/2, 9] = 0
 
c[39/2, 10] = 0
 
c[39/2, 11] = 0
 
c[39/2, 12] = 0
 
c[39/2, 13] = 0
 
c[39/2, 14] = 0
 
c[39/2, 15] = 0
 
c[39/2, 16] = 0
 
c[39/2, 17] = 0
 
c[39/2, 18] = 0
 
c[39/2, 19] = 0
 
c[_, _] = 0
