（p+q+r）^nの係数をパスカルの三角形のように出力するやり方です。１）フロベニウスの定理から３の分解ケースをソーティングして出す（逆順になっている） l[n_]:=FrobeniusSolve[Table[1,{i,3}],n]ｎは次数２）各項の係数を算出 mul[n_]:=Table[Multinomia…