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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A281706型 三个正数的集合数<=n,其和为平方。 4
0, 0, 0, 0, 1, 2, 3, 5, 8, 11, 15, 20, 26, 33, 40, 48, 57, 67, 80, 93, 107, 121, 136, 153, 172, 193, 214, 236, 259, 284, 311, 340, 371, 402, 433, 466, 501, 538, 577, 618, 661, 705, 751, 798, 847, 897, 949, 1002, 1057, 1115, 1176, 1239, 1303, 1369, 1436, 1505 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,6
评论
灵感来自A278329型.
a(n)>=a(n-1),第一差是不递减的。
链接
Alois P.Heinz和Robert G.Wilson v,n=0..20000时的n,a(n)表
例子
a(1)。。a(3)=0;
a(4)=1,因为2+3+4=9;
a(5)=2,因为2+3+4=1+3+5=9;
a(6)=3,因为2+3+4=1+3+5=1+2+6=9;
a(7)=5,因为a(6)=3+3+6+7=4+5+7=16;
a(8)=8,因为a(7)=5+1+7+8=2+6+8=3+5+8=16;等。
MAPLE公司
g: =(n,t)->最大值(0,iquo(n-1,2)-最大值(1,n-t)+1):
b: =n->加(g(k^2-n,n-1),k=ceil(sqrt(n+3))。。楼层(平方米(3*n-3)):
a: =proc(n)选项记忆`如果`(n=0,0,a(n-1)+b(n))结束:
seq(a(n),n=0..100);
数学
f[n_]:=长度@选择[Plus@@@子集[Range@n,{3}],Mod[Sqrt[#],1]==0&];数组[f,65](*或*)
f=编译[{{n,_Integer}},块[{a=1,b=2,c=3,cnt=0},While[a<b,b=a+1;While[b<c,c=b+1;Where[c<n+1,If[Mod[Sqrt[a+b+c],1]==0,cnt++];c++];b++];a++];cnt]];数组[f,65](*或*)
g=编译[{{n,_Integer}},如果[n<4,0,块[{a=1,b=2,cnt=f[n-1]},而[a<b,b=a+1;而[b<n,如果[Mod[Sqrt[a+b+n],1]==0,cnt++];b++];a++];cnt]]];f[n]:=f[n]=g[n];数组[f,100]
交叉参考
囊性纤维变性。A176615号,A278329型.
第k列=第3列,共列A281871型.
关键词
非n,容易的
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月24日18:44。包含373688个序列。(在oeis4上运行。)