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

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: 编号:a000164
显示1-1个结果(共1个)。 第页1
    排序:相关性|参考文献||被改进的|创建     格式:长的|短的|数据
A000164号 将n划分为3个正方形的数量(允许零部分)。 +0
28
1, 1, 1, 1, 1, 1, 1, 0, 1, 2, 1, 1, 1, 1, 1, 0, 1, 2, 2, 1, 1, 1, 1, 0, 1, 2, 2, 2, 0, 2, 1, 0, 1, 2, 2, 1, 2, 1, 2, 0, 1, 3, 1, 1, 1, 2, 1, 0, 1, 2, 3, 2, 1, 2, 3, 0, 1, 2, 1, 2, 0, 2, 2, 0, 1, 3, 3, 1, 2, 2, 1, 0, 2, 2, 3, 2, 1, 2, 1, 0, 1, 4, 2, 2, 1, 2, 3, 0, 1, 4, 3, 1, 0, 1, 2, 0, 1, 2, 3, 3, 2, 4, 2, 0, 2 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,10
评论
a(n)=整数[i,j,k]的三元组数,其中i>=j>=k>=0,n=i^2+j^2+k^2-迈克尔·索莫斯2012年6月5日
参考文献
E.Grosswald,整数表示为平方和。Springer-Verlag,纽约州,1985年,第84页。
链接
医学博士Hirschorn。,关于正方形划分的一些公式,离散数学。211(2000),第225-228页。
配方奶粉
设e(n,r,s,m)是n的r(mod m)除数超过s(mod m)除数的部分,如果n是一个完全平方,则delta(n)=1,否则为0。然后,如果我们定义α(n)=5*delta(n)+3*delta(n/2)+4*delta(n/3),β(n)=4*e(n,1,3,4)+3*e(n,1,7,8)+3*e(n,3,5,8),γ(n)=2*Sum_{1<=k^2<n}e(n-k^2,1,3,4),则得出a(n)=(1/12)*(α(n)+β(n)+γ(n))-蚂蚁王2010年10月15日
例子
G.f.=1+x+x^2+x^3+x^4+x^5+x^6+x^8+2*x^9+x^10+x^11+x^12+x^13+。。。
枫木
A000164号:=进程(n)
局部a,x,y,z2,z;
a:=0;
对于0中的x do
如果3*x^2>n,则
返回a;
结束条件:;
对于x do中的y
如果x^2+2*y^2>n,则
断裂;
结束条件:;
z2:=n-x^2-y^2;
如果issqr(z2),则
z:=sqrt(z2);
如果z>=y,则
a:=a+1;
结束条件:;
结束条件:;
结束do:
结束do:
a;
结束进程:#R.J.马塔尔2017年2月12日
数学
长度[PowersRepresentations[#,3,2]]和/@范围[0,104]
e[0,r,s,m]=0;e[n_,r_,s_,m_]:=长度[Select[Divisors[n],Mod[#,m]==r&]]-长度[Select[Divisors[n]、Mod[#,m]==s&]];α[n]:=5delta[n]+3delta[1/2 n]+4delta[1/3n];β[n]:=4e[n,1,3,4]+3e[n、1,7,8]+3e[n,3,5,8];δ[n_]:=如果[IntegerQ[Sqrt[n]],1,0];f[n_]:=表[n-k^2,{k,1,楼层[Sqrt[n]]}];伽马[n_]:=2加@@(e[#,1,3,4]和/@f[n]);p3[n]:=1/12(α[n]+β[n]+gamma[n]);p3[#]和/@范围[0,104]
(*蚂蚁王2010年10月15日*)
a[n_]:=如果[n<0,0,和[Boole[n==i^2+j^2+k^2],{i,0,Sqrt[n]},{j,0,i},},[k,0,j}]];(*迈克尔·索莫斯2015年8月15日*)
黄体脂酮素
(PARI){a(n)=如果(n<0,0,和(i=0,平方(n),和(j=0,i,和(k=0,j,n==i^2+j^2+k^2)))}/*迈克尔·索莫斯2012年6月5日*/
(Python)导入集合;a=集合。计数器(i*i+j*j+k*k代表范围(100)内的i,j代表范围(i+1)内的j,k代表范围内的k(j+1))#大卫·拉德克利夫2019年4月15日
交叉参考
其他平方数的等效序列:A000161号(2),A002635美元(4) ,A000174号(5).
囊性纤维变性。A004215号(零位置),A094942号(1的位置),A124966号(数值较大的位置)。
囊性纤维变性。A005875号A016727号
关键词
非n
作者
扩展
姓名澄清人沃尔夫迪特·朗,2013年4月8日
状态
经核准的
第页1

搜索在0.010秒内完成

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

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

上次修改时间:2024年5月7日14:53 EDT。包含372310个序列。(在oeis4上运行。)