|
| |
|
| A002219号 |
| a（n）是2n个分区的数量，可以通过将n的两个（不一定不同）分区相加而获得。
（原名M2574 N1018）
|
|
62
|
|
|
|
1, 3, 6, 14, 25, 53, 89, 167, 278, 480, 760, 1273, 1948, 3089, 4682, 7177, 10565, 15869, 22911, 33601, 47942, 68756, 96570, 136883, 189674, 264297, 362995, 499617, 678245, 924522, 1243098, 1676339, 2237625, 2988351, 3957525, 5247500, 6895946, 9070144, 11850304
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
参考文献
|
N.J.A.Sloane，《整数序列手册》，学术出版社，1973年（包括该序列）。
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
这是5的七个分区：1^5、1^32、12^2、1^23、23、14、5。将这些成对相加，我们得到一个（5）=25个10的分区：1^10，1^82，1^6 2^2等（我们将所有10的分区都分成大小<=5的部分-有30个这样的分区-除了其中的五个：我们没有得到2 4^2，3^2 4，2^3 4，1 3^3，2^5）-N.J.A.斯隆2012年6月3日
a（1）=1到a（4）=14分区：
（11） （22）（33）（44）
(211) (321) (422)
(1111) (2211) (431)
(3111) (2222)
(21111) (3221)
（111111）（3311）
(4211)
(22211)
(32111)
(41111)
(221111)
(311111)
(2111111)
（11111111）
（结束）
|
|
|
MAPLE公司
|
g： =proc（n，i）选项记忆；
`如果`（n=0，1，`if`（i>1，g（n，i-1），0）+`如果`（i>n，0，g（n-i，i））
结束时间：
b： =proc（n，i，s）选项记忆；
`如果`（i=1且s<>{}或n在s，g（n，i），`if`（i<1或s={}，0，
b（n，i-1，s）+`if`（i>n，0，b（n-i，i，map（x->{` if`（x>n-i，NULL，
max（x，n-i-x）），`if`（x<i或x>n，NULL，max（x-i，n-x））}[]，s）））
结束时间：
a： =n->b（2*n，n，{n}）：
|
|
|
数学
|
b[n_，i_，s_]：=b[n，i，s]=如果[MemberQ[s，0|n]，0，如果[n==0，1，如果[i<1，0，b[n、i-1，s]+如果[i<=n，b[n-i，i，选择[Flatten[Transpose[{s，s-i}]]，0<=#<=n-i&]]，0]]；A006827号[n]：=b[2*n，2*n，{n}]；a[n_]：=分区P[2*n]-A006827号[n] ；表格[打印[an=a[n]]；an，{n，1，25}](*Jean-François Alcover公司2013年11月12日之后阿洛伊斯·海因茨*)
素数MS[n_]：=如果[n==1，{}，扁平[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；
subptns[s_]：=primeMS/@Divisors[Times@@Prime/@s]；
表[Length[Select[Integer Partitions[2n]，MemberQ[Total/@subtns[#]，n]&]]，{n，10}](*古斯·怀斯曼2022年10月27日*）
|
|
|
黄体脂酮素
|
（Python）
从itertools导入组合with_replacement
从sympy.utilities.iterables导入分区
定义A002219号（n） ：return len（{tuple（sorted（p+q）.items（））for p，q in combinations_with_replacement（tuple，Counter（p）for p in partitions（n）），2）}）#柴华武2023年9月20日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
