| 显示找到的2个结果中的1-2个。
第页1
1, 2, 2, 3, 3, 5, 5, 7, 8, 11, 11, 15, 17, 23, 23, 30, 33, 43, 46, 57, 62, 79, 83, 103, 112, 139, 148, 180, 195, 236, 253, 304, 330, 396, 422, 501, 543, 644, 690, 810, 876, 1027, 1105, 1286, 1388, 1614, 1734, 2004, 2165, 2496, 2684, 3081, 3324, 3808, 4096
例子
a（9）统计这8个分区（写为回文）：9、171、252、414、333、13131、12321、22122。
数学
z=40；p[n_，k_]：=选择[IntegerPartitions[n]，（计数[OddQ[Transpose[Tally[#]][2]]]，True]<=1）&&（计数[#，最小[#]]<=k）&]
表[p[n，2]，{n，1，12}]
表[p[n，3]，{n，1，12}]
表[p[n，4]，{n，1，12}]
1, 2, 2, 4, 3, 6, 6, 10, 9, 14, 14, 22, 21, 32, 29, 45, 43, 62, 61, 87, 83, 118, 113, 159, 153, 214, 206, 283, 272, 368, 359, 485, 469, 627, 607, 808, 784, 1036, 1004, 1318, 1282, 1670, 1628, 2112, 2053, 2651, 2583, 3317, 3235, 4134, 4034, 5138, 5013, 6355
例子
a（8）统计这10个分区（写为回文）：8、161、44、242、11411、323、1331、2222、12221、112211。
数学
z=40；p[n_，k_]：=选择[IntegerPartitions[n]，（计数[OddQ[Transpose[Tally[#]][2]]]，True]<=1）&&（计数[#，最小[#]]<=k）&]
表[p[n，2]，{n，1，12}]
表[p[n，3]，{n，1，12}]
表[p[n，4]，{n，1，12}]
搜索在0.004秒内完成
| 