搜索： a264405-身份证：a264405
|
| |
| |
|
|
|
0, 0, 2, 3, 8, 12, 24, 35, 60, 87, 136, 192, 287, 396, 567, 773, 1074, 1439, 1958, 2587, 3454, 4514, 5931, 7666, 9951, 12736, 16341, 20743, 26354, 33184, 41807, 52262, 65329, 81144, 100721, 124344, 153390, 188303, 230940, 282063, 344100, 418242, 507762
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
链接
|
|
|
|
公式
|
|
|
|
例子
|
对于n=6，我们有：
--------------------------------------
.数量
分区重复部分
--------------------------------------
6 .......................... 0
3 + 3 ...................... 2
4 + 2 ...................... 0
2 + 2 + 2 .................. 3
5 + 1 ...................... 0
3 + 2 + 1 .................. 0
4 + 1 + 1 .................. 2
2 + 2 + 1 + 1 .............. 4
3 + 1 + 1 + 1 .............. 3
2 + 1 + 1 + 1 + 1 .......... 4
1 + 1 + 1 + 1 + 1 + 1 ...... 6
------------------------------------
总计。。。。。。。。。。。。。。。。。。。。。24
因此a（6）=24。
|
|
|
MAPLE公司
|
b： =proc（n，i）选项记忆；局部h，j，t；
如果n<0，则[0，0]
elif n=0，则[1，0]
elif i<1，然后[0，0]
否则h:=[0,0]；
对于从0到iquo（n，i）do的j
t： =b（n-i*j，i-1）；
h： =[h[1]+t[1]，h[2]+t[2]+`if`（j<2，0，t[1]*j）]
od；小时
fi（菲涅耳）
结束：
a： =n->b（n，n）[2]：
g:=加上（x^（2*j）*（2-x^j）/（1-x^j。。80）/mul（1-x^j，j=1..80）：gser：=系列（g，x=0，50）：seq（系数（gser，x，n），n=0。。45); #Emeric Deutsch公司2016年2月2日
|
|
|
数学
|
myCount[p_List]：=模块[{t}，如果[p=={}，0，t=Transpose[Tally[p]][2]；总和[If[t[i]]==1，0，t[[i]]，{i，长度[t]}]]；表[Total[表[myCount[p]，{p，整数分区[i]}]，{i，0，20}](*T.D.诺伊2011年11月19日*）
b[n_，i_]：=b[n，i]=模[{h，j，t}，其中[n<0，{0，0}，n==0，{1，0}，i<1，{0；h={h[[1]]+t[[1]]，h[[2]]+t[2]]+如果[j<2，0，t[1]]*j]}]；h] ]；a[n]：=b[n，n][2]]；表[a[n]，{n，0，50}](*Jean-François Alcover公司2015年10月25日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.006秒内完成
|
