(*Definition of Ramanujan's theta function*)
(*Here (Subscript[ϕ, (q^(16n))])=ϕ((q^(16n))) and (Subscript[ψ, (q^kn)])=ψ((q^kn))*)

p[n_]:=(Subscript[ϕ, (q^(16n))])+2(q^(4n)) (Subscript[ψ, (q^(32n))])+2(q^n) (Subscript[ψ, (q^(8n))])

(*8-dissection of the generating function of \overline(Subscript[{b}, _]){2k+1} modulo 16*)

PolynomialMod[p[1]((p[2])^3)((p[4])^6),16]

(*Representation of 8n+i in row i*)

MatrixForm[Table[Table[Coefficient[(Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^6)+2 q (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)])+6 (q^2) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)])+12 (q^3) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)])+12 (q^4) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]^2)+24 (q^5) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]^2)+8 (q^6) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]^3)+16 (q^7) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]^3)+12 (q^4) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^32)])+2 (q^4) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^32)])+24 (q^5) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^32)])+8 (q^6) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)])+12 (q^6) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)])+16 (q^7) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)])+16 (q^8) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^32)])+24 (q^8) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^32)])+16 (q^10) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]^3) (Subscript[ψ, (q^32)])+28 (q^8) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]^2)+24 (q^8) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^32)]^2)+24 (q^9) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^32)]^2)+8 (q^10) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]^2)+16 (q^10) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]^2)+16 (q^11) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]^2)+16 (q^12) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^32)]^2)+24 (q^12) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]^3)+16 (q^14) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]^3)+16 (q^16) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^2) (Subscript[ψ, (q^32)]^4)+6 (q^8) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^64)])+12 (q^9) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^64)])+24 (q^10) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^64)])+16 (q^11) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^64)])+24 (q^12) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^64)])+16 (q^13) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^64)])+8 (q^12) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)])+12 (q^12) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)])+16 (q^13) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)])+16 (q^14) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)])+16 (q^16) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)])+8 (q^16) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]^2) (Subscript[ψ, (q^64)])+16 (q^16) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^32)]^2) (Subscript[ψ, (q^64)])+16 (q^17) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^32)]^2) (Subscript[ψ, (q^64)])+16 (q^20) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]^3) (Subscript[ψ, (q^64)])+12 (q^16) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^64)]^2)+24 (q^17) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^64)]^2)+24 (q^18) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^64)]^2)+16 (q^19) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^64)]^2)+16 (q^20) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)]^2)+24 (q^20) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)]^2)+16 (q^22) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)]^2)+16 (q^24) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]^2) (Subscript[ψ, (q^64)]^2)+8 (q^24) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^64)]^3)+16 (q^25) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^64)]^3)+16 (q^28) (Subscript[ϕ, (q^64)]^6) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)]^3)+12 (q^16) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^128)])+24 (q^17) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^128)])+8 (q^18) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^128)])+16 (q^19) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^128)])+16 (q^20) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^128)])+24 (q^20) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^128)])+24 (q^20) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^128)])+16 (q^21) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^128)])+16 (q^22) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^128)])+16 (q^22) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^128)])+16 (q^24) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]^2) (Subscript[ψ, (q^128)])+8 (q^24) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^64)]) (Subscript[ψ, (q^128)])+16 (q^25) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^64)]) (Subscript[ψ, (q^128)])+16 (q^28) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)]) (Subscript[ψ, (q^128)])+16 (q^28) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)]) (Subscript[ψ, (q^128)])+16 (q^32) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^5) (Subscript[ψ, (q^64)]^2) (Subscript[ψ, (q^128)])+28 (q^32) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^128)]^2)+24 (q^33) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^128)]^2)+8 (q^34) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^128)]^2)+16 (q^35) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^128)]^2)+16 (q^36) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^16)]^2) (Subscript[ψ, (q^128)]^2)+24 (q^36) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^128)]^2)+16 (q^38) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^128)]^2)+8 (q^40) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^64)]) (Subscript[ψ, (q^128)]^2)+16 (q^41) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^64)]) (Subscript[ψ, (q^128)]^2)+16 (q^44) (Subscript[ϕ, (q^32)]^2) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^32)]) (Subscript[ψ, (q^64)]) (Subscript[ψ, (q^128)]^2)+16 (q^48) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]) (Subscript[ϕ, (q^64)]^4) (Subscript[ψ, (q^64)]^2) (Subscript[ψ, (q^128)]^2)+16 (q^64) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^3) (Subscript[ϕ, (q^64)]^2) (Subscript[ψ, (q^128)]^4),q,8n+i],{n,0,5}],{i,1,7}]]

(*Induction step of the 8-dissection*)

PolynomialMod[((Subscript[b, t,0])(Subscript[F, t,0])+2q (Subscript[b, t,1])(Subscript[F, t,1])+2(q^(2 ))(Subscript[b, t,2])(Subscript[F, t,2])+4(q^3)(Subscript[b, t,3])(Subscript[F, t,3])+2(q^4)(Subscript[b, t,4])(Subscript[F, t,4])+8(q^5)(Subscript[b, t,5])(Subscript[F, t,5])+4(q^6)(Subscript[b, t,6])(Subscript[F, t,6]))((p[1])^2)((p[2])^6)((p[4])^12),16]

(*Representation of 8n+i in row i in the induction step*)

MatrixForm[Table[Table[Coefficient[(Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[b, t,0]) (Subscript[F, t,0])+4 q (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]) (Subscript[b, t,0]) (Subscript[F, t,0])+4 (q^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]^2) (Subscript[b, t,0]) (Subscript[F, t,0])+12 (q^2) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]) (Subscript[b, t,0]) (Subscript[F, t,0])+12 (q^4) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]^2) (Subscript[b, t,0]) (Subscript[F, t,0])+8 (q^4) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^11) (Subscript[ψ, (q^32)]) (Subscript[b, t,0]) (Subscript[F, t,0])+4 (q^4) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]) (Subscript[b, t,0]) (Subscript[F, t,0])+8 (q^5) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]) (Subscript[ψ, (q^32)]) (Subscript[b, t,0]) (Subscript[F, t,0])+8 (q^8) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^10) (Subscript[ψ, (q^32)]^2) (Subscript[b, t,0]) (Subscript[F, t,0])+4 (q^8) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]^2) (Subscript[b, t,0]) (Subscript[F, t,0])+12 (q^8) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]) (Subscript[b, t,0]) (Subscript[F, t,0])+8 (q^10) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]) (Subscript[ψ, (q^64)]) (Subscript[b, t,0]) (Subscript[F, t,0])+12 (q^16) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]^2) (Subscript[b, t,0]) (Subscript[F, t,0])+8 (q^16) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^11) (Subscript[ψ, (q^128)]) (Subscript[b, t,0]) (Subscript[F, t,0])+8 (q^32) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^10) (Subscript[ψ, (q^128)]^2) (Subscript[b, t,0]) (Subscript[F, t,0])+2 q (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^2) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^3) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]^2) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^3) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^5) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]^2) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^5) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^9) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]^2) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^9) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]) (Subscript[b, t,1]) (Subscript[F, t,1])+8 (q^17) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]^2) (Subscript[b, t,1]) (Subscript[F, t,1])+2 (q^2) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^3) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^4) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]^2) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^4) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^6) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]^2) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^6) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^10) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]^2) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^10) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]) (Subscript[b, t,2]) (Subscript[F, t,2])+8 (q^18) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]^2) (Subscript[b, t,2]) (Subscript[F, t,2])+4 (q^3) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[b, t,3]) (Subscript[F, t,3])+2 (q^4) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^5) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^6) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^8)]^2) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^6) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^8) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^16)]^2) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^8) (Subscript[ϕ, (q^16)]) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^12) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^32)]^2) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^12) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^5) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^20) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^4) (Subscript[ϕ, (q^64)]^12) (Subscript[ψ, (q^64)]^2) (Subscript[b, t,4]) (Subscript[F, t,4])+8 (q^5) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[b, t,5]) (Subscript[F, t,5])+4 (q^6) (Subscript[ϕ, (q^16)]^2) (Subscript[ϕ, (q^32)]^6) (Subscript[ϕ, (q^64)]^12) (Subscript[b, t,6]) (Subscript[F, t,6]),q,8n+i],{n,0,2}],{i,1,7}]]