MonomialList[(1+x+y+z)^3]

(Subscript[𝔾, A_List])[S_Symbol,K_Integer] := (Subscript[ω, S])Sum[,{k,0,K}]