登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A171978号 n分为分数k/(k+1),0<k<=n的分区数。 2
1, 1, 2, 4, 7, 22, 37, 84, 172, 454, 745, 2904, 4722, 10464, 38546, 88769, 147439, 475153, 785894, 3140342, 10412267, 19169464, 32132160, 125087460, 224341028 (列表;图表;参考;;历史;文本;内部格式)
抵消
0, 3
链接
配方奶粉
a(n)=q(n,1),q(x,k)=如果x<k/(k+1),则0^x否则,如果k>n,则0否则q(x-k/(k+1),k)+q(x、k+1)。
例子
a(3)=分成1/2、2/3或3/4部分的4个分区:
#1: 3/4 + 3/4 + 3/4 + 3/4 = 3,
#2: (3/4 + 3/4) + (1/2 + 1/2 + 1/2) = 3,
#3: (2/3 + 2/3 + 2/3) + (1/2 + 1/2) = 3,
#4: 1/2 + 1/2 + 1/2 + 1/2 + 1/2 + 1/2 = 3;
a(4)=分为1/2、2/3、3/4或4/5部分的7个分区:
#1: 4/5 + 4/5 + 4/5 + 4/5 + 4/5 = 4,
#2: (3/4 + 3/4 + 3/4 + 3/4) + (1/2 + 1/2) = 4,
#3: (3/4 + 3/4) + (2/3 + 2/3 + 2/3) + 1/2 = 4,
#4: (3/4 + 3/4) + (1/2 + 1/2 + 1/2 + 1/2 + 1/2) = 4,
#5: 2/3 + 2/3 + 2/3 + 2/3 + 2/3 + 2/3 = 4,
#6: 2/3 + 2/3 + 2/3 + 1/2 + 1/2 + 1/2 + 1/2 = 4,
#7: 1/2 + 1/2 + 1/2 + 1/2 + 1/2 + 1/2 + 1/2 + 1/2 = 4.
MAPLE公司
b: =proc(n,k)选项记忆;
`如果`(n=0,1,`如果`(k=0或isprime(k+2)和irem(denom(n),
k+2)=0,0,b(n,k-1)+`如果`(k>k*n+n,0,b(n-k/(k+1),k))
结束时间:
a: =n->b(n,n):
seq(a(n),n=0..16)#阿洛伊斯·海因茨2012年7月18日
数学
b[n_,k_]:=b[n,k]=如果[n==0,1,如果[k==0||PrimeQ[k+2]&&Mod[Denominator[n],k+2]==0,0,b[n、k-1]+如果[k>k*n+n,0,b[n-k/(k+1),k]]];a[n]:=b[n,n];表[a[n],{n,0,16}](*Jean-François Alcover公司2017年2月16日,之后阿洛伊斯·海因茨*)
黄体脂酮素
(哈斯克尔)
--导入数据。比率(%)
a171978 n=q(fromInteger n)$zipWith(%)[1..n][2..]其中
q 0=1
q _[]=0
q x ks’@(k:ks)
|x<k=fromEnum(x==0)
|否则=q(x-k)ks'+q x ks
交叉参考
关键词
更多,非n
作者
莱因哈德·祖姆凯勒,2010年1月20日
扩展
通过以下公式修正偏移量并添加(16)莱因哈德·祖姆凯勒2012年4月1日
a(17)-a(23)来自阿洛伊斯·海因茨2012年7月18日
a(24)来自阿洛伊斯·海因茨2014年9月27日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日09:34。包含373543个序列。(在oeis4上运行。)