1, 1, 2, 3, 4, 5, 7, 8, 10, 12, 14, 16, 19, 21, 24, 27, 30, 33, 37, 40, 44, 48, 52, 56, 61, 65, 70, 75,
1, 1, 3, 4, 8, 10, 16, 20, 29, 35, 47, 56, 72, 84, 104, 120, 145, 165, 195, 220, 256, 286, 328, 364,
1, 1, 3, 5, 10, 16, 26, 38, 57, 79, 111, 147, 196, 252, 324, 406, 507, 621, 759, 913, 1096, 1298,
1, 1, 4, 7, 16, 26, 50, 76, 126, 185, 280, 392, 561, 756, 1032, 1353, 1782, 2277,2920, 3652, 4576,
1, 1, 4, 8, 20, 38, 76, 133, 232, 375, 600, 912, 1368, 1980, 2829, 3936, 5412, 7293, 9724, 12760,
1, 1, 5, 10, 29, 57, 126, 232, 440, 750, 1282, 2052, 3260, 4950, 7440, 10824,15581,21879,30415,
1, 1, 5, 12, 35, 79, 185, 375, 750, 1387, 2494, 4262, 7105, 11410, 17930, 27407, 41107, 60335,
可以有统一的公式。
- CoefficientList[Series[((1 + x) x^k)/(2 (1 - x^2)^Floor[(k + 2)/2])
- + x^k/(2k)Plus@@(EulerPhi[#] /(1 - x^#)^(k/#)&/@Divisors[k]),{x,0,43}],x]
复制代码
Mathematica 干这个沒问题,但把组合问题归结为多项式系数的思想了不起!谢谢 elim!
很多数学思想(不是数学公式) 美得不得了! 谢谢 elim! |