登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
邮编:A182978 n的所有分区中最小或最大的部分的总数。
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

链接

阿洛伊斯·P·海因茨,n=1..1000的n,a(n)表

公式

a(n)=A006128号(n)-邮编:A182977(n) 一。

例子

对于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+1+1

所有6个分区的部件总数等于35个。除分区(3+2+1)中的“2”外,所有部分都是最小的或最大的部分,因此a(6)=35-1=34。

枫木

l: =proc(n,i)选项记住;`if`(n=i,n,0)+

如果`(i<1,0,l(n,i-1)+`如果`(n<i,0,l(n-i,i)))

结束:

s: =proc(n,i)选项记住;`if`(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):

顺序(a(n),n=1..50)#海因茨2013年1月17日

数学

[[[[n]n[[n]当[n[n]i]=如果[n==i,n,0]+如果[i<1,0,0,l[n,i-1]+如果[n<i,0,0,l[n-i,i]]]];s[n[n]u,i[uu]:=s[n,i]=如果[n==0 | | i==1,n,i,[q,r}=商余数的余数[n,i];如果[r==0,q,0]+加和[s[n[n-i*j,j,i 1][[n-i*j,i 1],[n[n-i*j,i 1]的[i[i[{j,0,n/i}]];a[n_9]:=l[n,n]+s[n,n]-除数sigma[1,n];表[a[n],{n,1,50}](*让·弗朗索瓦·阿尔科弗2015年11月3日,之后海因茨*)

交叉引用

囊性纤维变性。A006128号,A046746号,A092269号,邮编:A116686,邮编:A182977,A182984年.

上下文顺序:A001975号 A096220型 A034333号*A320609型 A320610 A320611飞机

相邻序列:邮编:A182975 A1976年 邮编:A182977*邮编:A182979 邮编:A182980 邮编:A182981

关键字

作者

奥马尔·E·波尔2011年7月17日

扩展

a(12)修正了更多术语a(13)-a(40)大卫·斯坎布尔2011年7月18日

状态

经核准的

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:美国东部时间2020年10月28日13:15。包含338055个序列。(运行在oeis4上。)