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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A327448型 将前n个立方体划分为三个等和集的方法数。
1, 0, 0, 691, 3416, 0, 233, 1168, 0, 8857, 18157, 0, 2176512, 3628118, 0, 3204865, 8031495, 0, 79514209, 205927212, 0, 5152732369, 13493840291, 0 (列表;图表;参考;;历史;文本;内部格式)
抵消
23,4
评论
注意偏移量。
参考文献
Keith F.Lynch,发布到数学乐趣邮件列表,2019年9月17日。
链接
配方奶粉
a(n)>0=>n英寸{A007494号}. -阿洛伊斯·海因茨2019年9月30日
例子
唯一最小解(n=23)为
27 + 216 + 1000 + 2197 + 5832 + 6859 + 9261 =
1 + 64 + 343 + 512 + 1728 + 4096 + 8000 + 10648 =
8 + 125 + 729 + 1331 + 2744 + 3375 + 4913 + 12167.
MAPLE公司
s: =proc(n)选项记忆`如果`(n<2,0,n^3+s(n-1))结束:
b: =proc(n,x,y)选项记忆`如果`(n=1,1,(p->(l->
加法(`if`(p>l[i],0,b(n-1,sort(subsop(i=l[i]-p,l))
[1..2][]),i=1..3))([x,y,s(n)-x-y]))(n^3))
结束时间:
a: =n->`如果`(irem(1+s(n),3,'q')=0,b(n,q-1,q)/2,0):
序列号(a(n),n=23..27)#阿洛伊斯·海因茨2019年9月30日
数学
s[n_]:=s[n]=如果[n<2,0,n^3+s[n-1]];
b[n_,x_,y_]:=b[n,x,y]=如果[n==1,1,With[{p=n^3},Sum[If[p>#[i]],0,b[n-1,Sequence@@Sort[ReplacePart[#,i->#[[i]]-p]][[1;;2]]],{i,1,3}]&[{x,y,s[n]-x-y}]];
a[n_]:=a[n]=如果[q=商[1+s[n],3];模态[1+s[n],3]==0,b[n,q-1,q]/2,0];
表[打印[n,“”,a[n]];a[n],{n,23,34}](*Jean-François Alcover公司2020年11月8日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,更多
作者
N.J.A.斯隆2019年9月19日
扩展
a(32)、a(33)、a阿洛伊斯·海因茨2019年9月30日
a(39)-a(46)来自伯特·多贝莱尔2021年5月15日
状态
已批准

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

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

上次修改时间:2024年4月25日07:53 EDT。包含371964个序列。(在oeis4上运行。)