14
n=2;
h=24;
a=20;
p=List[ 1, 5, 7, 11, 13, 17, 19, 23 ];
schurs=Simplify[List
[ 1+2q+3q^2+4q^3+5q^4+6q^5+6q^6+6q^7+6q^8+6q^9+6q^10+6q^11+6q^12+6q^13+6q^14+6\
q^15+6q^16+6q^17+6q^18+6q^19+6q^20+6q^21+6q^22+6q^23+5q^24+4q^25+3q^26+2q^27+q\
^28, 
  -24ER(-3)+12E3^2q^-1+(42-30ER(-3))q+72q^2+(42+30ER(-3))q^3+24ER(-3)q^4+12E3q\
^5, 
  24ER(-3)+12E3q^-1+(42+30ER(-3))q+72q^2+(42-30ER(-3))q^3-24ER(-3)q^4+12E3^2q^\
5, 18+6q^-1+30q+36q^2+30q^3+18q^4+6q^5, 
  (3+ER(-3))/2+(3-ER(-3))/2q^-20+(3-ER(-3))q^-19+(9-3ER(-3))/2q^-18+(6-2ER(-3)\
)q^-17+(15-5ER(-3))/2q^-16+(9-3ER(-3))q^-15+(9-3ER(-3))q^-14+(9-3ER(-3))q^-13+\
(9-2ER(-3))q^-12+(9-ER(-3))q^-11+9q^-10+(9+ER(-3))q^-9+(9+2ER(-3))q^-8+(9+3ER(\
-3))q^-7+(9+3ER(-3))q^-6+(9+3ER(-3))q^-5+(15+5ER(-3))/2q^-4+(6+2ER(-3))q^-3+(9\
+3ER(-3))/2q^-2+(3+ER(-3))q^-1, 
  (3-ER(-3))/2+(3+ER(-3))/2q^-20+(3+ER(-3))q^-19+(9+3ER(-3))/2q^-18+(6+2ER(-3)\
)q^-17+(15+5ER(-3))/2q^-16+(9+3ER(-3))q^-15+(9+3ER(-3))q^-14+(9+3ER(-3))q^-13+\
(9+2ER(-3))q^-12+(9+ER(-3))q^-11+9q^-10+(9-ER(-3))q^-9+(9-2ER(-3))q^-8+(9-3ER(\
-3))q^-7+(9-3ER(-3))q^-6+(9-3ER(-3))q^-5+(15-5ER(-3))/2q^-4+(6-2ER(-3))q^-3+(9\
-3ER(-3))/2q^-2+(3-ER(-3))q^-1, 
  8+4q^-9+8q^-8+12q^-7+8q^-6+4q^-5+4q^-3+8q^-2+12q^-1+4q, 
  4+2q^-9+4q^-8+6q^-7+8q^-6+10q^-5+12q^-4+10q^-3+8q^-2+6q^-1+2q, 
  8+4q^-9+8q^-8+12q^-7+8q^-6+4q^-5+4q^-3+8q^-2+12q^-1+4q, 
  -72E24^19-72E24^16-120E24^8-72E24+(24-12ER(6))E3^2q^-1+(108E24^19+144E24^17-\
168E24^16+144E24^11+48E24^8+108E24)q+(-216+96ER(6))q^2+(-144E24^19-108E24^17+4\
8E24^16-108E24^11-168E24^8-144E24)q^3+(72E24^17-120E24^16+72E24^11-72E24^8)q^4\
+(24-12ER(6))E3q^5, -12E3^2q^-1+(30+6ER(-3))q+(30-6ER(-3))q^3-12E3q^5, 
  72E24^19-72E24^16-120E24^8+72E24+(24+12ER(6))E3^2q^-1+(-108E24^19-144E24^17-\
168E24^16-144E24^11+48E24^8-108E24)q+(-216-96ER(6))q^2+(144E24^19+108E24^17+48\
E24^16+108E24^11-168E24^8+144E24)q^3+(-72E24^17-120E24^16-72E24^11-72E24^8)q^4\
+(24+12ER(6))E3q^5, 
  72E24^17-120E24^16+72E24^11-72E24^8+(24-12ER(6))E3q^-1+(-144E24^19-108E24^17\
+48E24^16-108E24^11-168E24^8-144E24)q+(-216+96ER(6))q^2+(108E24^19+144E24^17-1\
68E24^16+144E24^11+48E24^8+108E24)q^3+(-72E24^19-72E24^16-120E24^8-72E24)q^4+(\
24-12ER(6))E3^2q^5, -12E3q^-1+(30-6ER(-3))q+(30+6ER(-3))q^3-12E3^2q^5, 
  -72E24^17-120E24^16-72E24^11-72E24^8+(24+12ER(6))E3q^-1+(144E24^19+108E24^17\
+48E24^16+108E24^11-168E24^8+144E24)q+(-216-96ER(6))q^2+(-108E24^19-144E24^17-\
168E24^16-144E24^11+48E24^8-108E24)q^3+(72E24^19-72E24^16-120E24^8+72E24)q^4+(\
24+12ER(6))E3^2q^5, 
  24-12E3^2q^-1+(6-18ER(-3))q-24q^2+(6+18ER(-3))q^3+24q^4-12E3q^5, 
  6+3q^-6+6q^-5+6q^-4+6q^-3+6q^-2+6q^-1+6q+3q^2, 
  24-12E3q^-1+(6+18ER(-3))q-24q^2+(6-18ER(-3))q^3+24q^4-12E3^2q^5, 
  6+3q^-6+6q^-5+6q^-4+6q^-3+6q^-2+6q^-1+6q+3q^2, 
  6+6q^-1+6q+12q^2+6q^3+6q^4+6q^5, 
  6+3q^-6+6q^-5+6q^-4+6q^-3+6q^-2+6q^-1+6q+3q^2, 6+6q^-1+6q+6q^3+6q^4+6q^5, 
  6+(3-ER(-3))/2q^-5+(3-ER(-3))q^-4+(9-ER(-3))/2q^-3+6q^-2+6q^-1+(9+ER(-3))/2q\
+(3+ER(-3))q^2+(3+ER(-3))/2q^3, 
  6+(3+ER(-3))/2q^-5+(3+ER(-3))q^-4+(9+ER(-3))/2q^-3+6q^-2+6q^-1+(9-ER(-3))/2q\
+(3-ER(-3))q^2+(3-ER(-3))/2q^3 ]];
top=1+2q+3q^2+4q^3+5q^4+6q^5+6q^6+6q^7+6q^8+6q^9+6q^10+6q^11+6q^12+6q^13+6q^14\
+6q^15+6q^16+6q^17+6q^18+6q^19+6q^20+6q^21+6q^22+6q^23+5q^24+4q^25+3q^26+2q^27\
+q^28;
feg=List[ 1, q^8, q^16, q^12, q^20, q^28, q^15+q^21, q^12+q^24, q^9+q^27, 
  q^11+q^17, q^8+q^20, q^5+q^23, q^7+q^13, q^4+q^16, q+q^19, q^2+q^14+q^20, 
  q^8+q^14+q^26, q^4+q^10+q^22, q^10+q^16+q^22, q^6+q^12+q^18, q^6+q^18+q^24, 
  q^3+q^9+q^15+q^21, q^5+q^11+q^17+q^23, q^7+q^13+q^19+q^25 ];
degrees=List[ 6, 24 ];
contents=List[ 28, 4, 4, 4, -20, -20, -8, -8, -8, 4, 4, 4, 4, 4, 4, 4, -4, 4, 
  -4, 4, -4, 4, -2, -2 ];
