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

 


A063993号
将n写成正好3个非零三角数的无序和的方法的数目。
11
0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 2, 1, 1, 1, 1, 2, 1, 2, 0, 2, 2, 2, 1, 1, 2, 2, 2, 0, 3, 2, 2, 2, 2, 2, 1, 3, 1, 2, 3, 2, 2, 2, 2, 3, 2, 2, 3, 3, 1, 2, 5, 1, 2, 1, 2, 5, 3, 3, 1, 4, 2, 3, 2, 2, 4, 4, 2, 1, 4, 3, 3, 3, 2, 4, 3, 3, 3, 4, 2, 1, 6, 1, 5, 3, 3, 5, 2, 2, 2, 5, 2, 5, 4, 2, 4, 5, 3, 1
抵消
0,13
评论
一个(A002097号(n) )=0;一个(A111638号(n) )=1;一个(A064825美元(n) )=2-莱因哈德·祖姆凯勒2012年7月20日
例子
5=3+1+1,所以a(5)=1。
MAPLE公司
A063993号:=进程(n)
局部a、t1idx、t2idx、t1、t2、t3;
a:=0;
对于t1idx从1 do
第1页:=A000217号(t1idx);
如果3*t1>n,则
断裂;
结束条件:;
从t1idx到t2idx do
t2段:=A000217号(t2idx);
如果t1+t2>n,则
断裂;
结束条件:;
t3:=n-t1-t2;
如果t3>=t2,则
如果是A000217(t3),则
a:=a+1;
结束条件:;
结束条件:;
结束do:
结束do:
a;
结束进程:#R.J.马塔尔2020年4月28日
数学
a=表[n(n+1)/2,{n,1,15}];b={0};c=表[0,{100}];做[b=附加[b,a[i]]+a[[j]+a[C]]],{k,1,15},{j,1,k},},[i,1,j}];b=删除[b,1];b=排序[b];l=长度[b];做[如果[b[[n]]<100,c[[b[n]]+1]++],{n,1,l}];c(c)
黄体脂酮素
(哈斯克尔)
a063993 n=长度[()|let ts=takeWhile(<n)$tail a000217_list,
x<-ts,y<-takeWhile(<=x)ts,
设z=n-x-y,0<z,z<=y,a010054 z==1]
--莱因哈德·祖姆凯勒2012年7月20日
(PARI)trmx(n)=我的(k=平方(8*n+1)\2);如果(k^2+k>2*n,k-1,k)
trmn(n)=trmx(细胞(n)-1)+1
a(n)=如果(n<3,返回(0));sum(a=trmn(n/3),trmx(n-2),my(t=n-a*(a+1)/2);总和(b=trmn(t/2),最小值(trmx(t-1),a),等边形(t-b*(b+1)/2,3))\\查尔斯·格里特豪斯四世2022年7月7日
交叉参考
囊性纤维变性。A053604号,A008443号,A002636号,A064181号(贪婪逆),A307598型(3例明显阳性)。
囊性纤维变性。A000217号,A010054级.
第k列=第3列,共列A319797型.
关键词
非n,容易的,美好的
作者
N.J.A.斯隆2001年9月18日
扩展
更多术语来自罗伯特·威尔逊v2001年9月20日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年9月21日04:44。包含376079个序列。(在oeis4上运行。)