显示找到的3个结果中的1-3个。
第页1
0, 2, 11, 12, 20, 29, 30, 38, 61, 65, 83, 90, 92, 101, 110, 119, 132, 137, 151, 159, 164, 182, 200, 208, 218, 227, 240, 245, 254, 263, 272, 308, 335, 344, 353, 355, 389, 393, 407, 434, 443, 451, 453, 462, 502, 514, 515, 524, 542, 551, 552, 578, 587, 600, 605, 623
数学
选择[范围[0,600]!PrimeQ[4*#+1]&&Length@PowersRepresentations[4*#+1,2,2]==1&](*阿米拉姆·埃尔达尔2020年3月12日*)
最小的数字,正好有n个不同的分区,作为4个平方的和x^2+y^2+z^2+t^2。
+10 4
1, 4, 18, 34, 50, 66, 82, 114, 90, 130, 150, 178, 162, 198, 318, 210, 250, 234, 322, 406, 465, 330, 306, 402, 462, 390, 474, 378, 490, 486, 654, 610, 522, 450, 778, 678, 642, 570, 666, 726, 594, 714, 770, 774, 986, 630, 738, 945, 1035, 850, 1222, 978, 1014, 918
例子
a(4)=34,因为34是有4个分区的最小数34=4^2+3^2+3^2+0^2=4^2+4^2+1^2+5^2+2^2+2^2+1^2=5^2+3^2+0^2+0^2
a(3)=18,有3个分区18=0^2+0^2+3^2+3 ^2=0^2+1^2+1^2+4^2=1^2+2^2+2^2+3^2。
数学
kmin[n_]:=如果[n<5,1,10n](*经验值,如有疑问,应降低*);
a[n_]:=a[n]=对于[k=kmin[n],真,k++,如果[Length[PowersRepresentations[k,4,2]]==n,返回[k]];
黄体脂酮素
(PARI)cnt4sqr(n)={local(cnt=0,t2);对于(x=0,floor(sqrt(n)),对于(y=x,floor(sqrt(n-x^2)),对于(z=y,floor(n-x^2-y^2),t2=n-x^2-y^2-z^2;如果(t2>=z^2&&issquare(n-x^2-y^2-z^2),cnt++;);););返回(cnt);}A124978号(n) ={local(a=1);while(1,if(cnt4sqr(a)==n,return(a););a++;);}{对于(n=1100,print(n,“”,A124978号(n) ););}-R.J.马塔尔2006年11月29日
(哈斯克尔)
导入数据。列表(elemIndex);导入数据。也许(来自Just)
a124978=(+1)。来自Just。(`elemIndex`(尾部a002635_list))
数字==1(mod 4),唯一分区为2个平方和x^2+y^2。
+10 2
1, 5, 9, 13, 17, 29, 37, 41, 45, 49, 53, 61, 73, 81, 89, 97, 101, 109, 113, 117, 121, 137, 149, 153, 157, 173, 181, 193, 197, 229, 233, 241, 245, 257, 261, 269, 277, 281, 293, 313, 317, 333, 337, 349, 353, 361, 369, 373, 389, 397, 401, 405, 409, 421, 433
例子
5 = 1^2 + 2^2, 9 = 0^2 + 3^2, 13 = 2^2 + 3^2, 17 = 1^2 + 4^2, 29 = 2^2 + 5^2, ... -迈克尔·索莫斯2023年7月25日
数学
选择[4*Range[0,100]+1,Length@PowersRepresentations[#,2,2]==1&](*阿米拉姆·埃尔达尔2020年3月12日*)
搜索在0.008秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日08:46。包含376084个序列。(在oeis4上运行。)
|