登录
A238788型
n的回文分区数,其最小部分的重数小于等于2。
1, 2, 1, 3, 3, 4, 4, 7, 6, 11, 9, 13, 15, 22, 18, 29, 28, 40, 38, 55, 52, 75, 70, 97, 96, 133, 123, 173, 167, 225, 215, 291, 282, 380, 361, 479, 468, 619, 590, 780, 757, 986, 952, 1239, 1202, 1555, 1500, 1931, 1882, 2409, 2328, 2975, 2898, 3676, 3568, 4517
抵消
1,2
评论
回文分区定义在A025065型.
例子
a(8)统计这7个分区(写为回文):8、161、44、242、323、1331、12221
数学
z=40;p[n_,k_]:=选择[IntegerPartitions[n],(计数[OddQ[Transpose[Tally[#]][2]]],True]<=1)&&(计数[#,最小[#]]<=k)&]
表[p[n,2],{n,1,12}]
t2=表[Length[p[n,2]],{n,1,z}](*A238788型*)
表[p[n,3],{n,1,12}]
t3=表格[长度[p[n,3]],{n,1,z}](*A238789型*)
表[p[n,4],{n,1,12}]
t4=表格[长度[p[n,4]],{n,1,z}](*A238790型*)
(*彼得·J·C·摩西2014年3月3日*)
关键词
非n,容易的
作者
克拉克·金伯利2014年3月5日
状态
经核准的