搜索： 编号：a182978
|
| |
| |
|
|
|
1, 3, 6, 12, 20, 34, 52, 80, 116, 170, 236, 333, 453, 621, 825, 1111, 1455, 1923, 2487, 3239, 4149, 5342, 6770, 8625, 10852, 13698, 17107, 21413, 26567, 33019, 40721, 50270, 61663, 75665, 92318, 112686, 136849, 166173, 200923, 242836
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
公式
|
|
|
|
例子
|
对于n=6，6的分区为
6
5 + 1
4 + 2
4 + 1 + 1
3 + 3
3 + (2) + 1 .... “2”是不算数的部分。
3 + 1 + 1 + 1
2 + 2 + 2
2 + 2 + 1 + 1
2 + 1 + 1 + 1 + 1
1 + 1 + 1 + 1 + 1 + 1
6个分区中的部件总数等于35个。所有部分都是最小的部分或最大的部分，除了分区（3+2+1）中的“2”，所以a（6）=35-1=34。
|
|
|
MAPLE公司
|
l： =proc（n，i）选项记忆`如果`（n=i，n，0）+
`如果`（i<1，0，l（n，i-1）+`如果`（n<i，0，1（n-i，i）））
结束：
s： =proc（n，i）选项记忆`如果`（n=0或i=1，n，
`如果`（irem（n，i，'r'）=0，r，0）+加（s（n-i*j，i-1），j=0..n/i））
结束：
a： =n->l（n，n）+s（n，n）-数量理论[σ]（n）：
|
|
|
数学
|
l[n_，i_]：=l[n，i]=如果[n==i，n，0]+如果[i<1，0，l[n；s[n_，i_]：=s[n，i]=如果[n==0||i==1，n，{q，r}=QuotientMainder[n，i]；如果[r==0，q，0]+和[s[n-i*j，i-1]，{j，0，n/i}]]；a[n]：=l[n，n]+s[n，n]-除数Sigma[1，n]；表[a[n]，{n，1，50}](*Jean-François Alcover公司2015年11月3日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
扩展
|
修正的a（12）和更多项a（13）-a（40）大卫·斯卡布勒2011年7月18日
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.003秒内完成
|
