系数列表[级数[(1+11x+4x^2-8x^3)/(1-9x^2+8x^4),{x,0,28}],x]
(*生成XOR-三角形T(n)的文本图*)
xortri[n_Integer]:=TableForm@MapIndexed[StringJoin[ConstantArray[“”,First@#2-1],StringJoin@@Riffle[Map[If[#==0,“.”(*0*),“@”(*1*)]&,#1],“”]&,NestWhileList[Map[PitXor@@#&,Partition[#,2,1]&,IntegerDigits[n,2],Length@#>1&]]