%I#4 2014年3月12日12:57:35

%S 1,2,1,3,3,4,4,7,6,11,9,13,15,22,18,29,28,40,38,55,52,75,70,97,96133，

%电话：123173167225215291282380361479468619590780757986952，

%电话：123912021555150019311882240923282975289836763684517

%N最小部分重数小于等于2的N的回文分区数。

%C回文分区定义为A025065。

%e a（8）统计这7个分区（写为回文）：8、161、44、242、323、1331、12221

%tz=40；p[n_，k_]：=选择[IntegerPartitions[n]，（计数[OddQ[Transpose[Tally[#]][2]]]，True]<=1）&&（计数[#，最小[#]]<=k）&]

%t表[p[n，2]，{n，1，12}]

%t t2=表格[长度[p[n，2]]，{n，1，z}]（*A238788*）

%t表[p[n，3]，{n，1，12}]

%t t3=表格[长度[p[n，3]]，{n，1，z}]（*A238789*）

%t表[p[n，4]，{n，1，12}]

%t t4=表格[长度[p[n，4]]，{n，1，z}]（*A238790*）

%t（*_彼得·莫塞斯，2014年3月3日*）

%Y参见A025065、A238789、A238790、A238779。

%K nonn，简单

%O 1,2号机组

%2014年3月5日，A _百灵金伯利