>>659
元々は、mathematicaの関数だと思いますが、短ければ、wolframalpha　でも正しく解釈してくれます。
下も、正しく返してくれました。

Table[{k,Coefficient[(x+x^2+x^3+x^4+x^5+x^6)^10,x^k]},{k,10,60}]

https://www.wolframalpha.com/input/?i=Table%5B%7Bk%2CCoefficient%5B%28x%2Bx%5E2%2Bx%5E3%2Bx%5E4%2Bx%5E5%2Bx%5E6%29%5E10%2Cx%5Ek%5D%7D%2C%7Bk%2C10%2C60%7D%5D&;lang=ja