|
| |
|
| A151883号 |
| 设g是[1..n]的置换，具有长度i的j_i圈，Sum_i*j_i=n；序列给出了求和{i偶数}（j_i）^2。 |
|
4
|
|
|
|
0, 1, 3, 24, 120, 840, 5880, 54600, 491400, 5276880, 58045680, 749770560, 9747017280, 142685262720, 2140278940800, 35879056012800, 609943952217600, 11334678568012800, 215358892792243200, 4453151976335462400, 93516191503044710400, 2108447155238693068800
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
链接
|
|
|
|
MAPLE公司
|
使用（组合）：
b： =proc（n，i）选项记忆`如果`（n=0，[1,0]，`如果`（i<1，0，
加法（多项式（n，n-i*j，i$j）/j*（i-1）^j*（p->p+
`如果`（i:：偶数，[0，p[1]*j^2]，0））（b（n-i*j，i-1），j=0..n/i））
结束时间：
a： =n->b（n$2）[2]：
|
|
|
数学
|
多项式[n，k]：=n/次数@@（k！）；b[n_，i_]：=b[n，i]=如果[n==0，{1，0}，如果[i<1，{0，0}，和[多项式[n，连接[{n-i*j}，数组[i&，j]]/j！*（i-1）^j*函数[p，p+If[EvenQ[i]，{0，p[[1]]*j^2}，{0,0}][b[n-i*j，i-1]]，{j，0，n/i}]]]；a[n]：=b[n，n][2]]；表[a[n]，{n，1，30}](*让-弗朗索瓦·奥尔科弗2017年3月13日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
