|
| |
|
| A048610型 |
| 以>=n的方式表示的两个正方形之和的最小值。
（原M2172）
|
|
11
|
|
|
|
2, 50, 325, 1105, 5525, 5525, 27625, 27625, 71825, 138125, 160225, 160225, 801125, 801125, 801125, 801125, 2082925, 2082925, 4005625, 4005625, 5928325, 5928325, 5928325, 5928325, 29641625, 29641625, 29641625, 29641625, 29641625, 29641625
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
参考文献
|
J.-M.De Konink，《法定法西斯》，条目50，第19页，《椭圆》，巴黎，2008年。
J.Meeus，1375题，J.Rec.数学。，18（1985年第1期），第70页。
问题590，J.Rec.数学。，11（1978年第2期），第137页。
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
|
|
|
例子
|
2 = 1^2 + 1^2; 50 = 1^2 + 7^2 = 5^2 + 5^2; 325=1 ^2+18 ^2=6 ^2+17 ^2=10 ^2+15 ^2。
|
|
|
数学
|
（*假设1105的（n）倍数，从1105开始，以加快计算速度*）twoSquaresR[n_]：=twoSQURESR[n]=使用[{r=Reduce[0<x<=y&n==x^2+y^2，{x，y}，Integers]}，如果[r==False，0，Length[{x，y}/.{ToRules[r]}]]；a[n_]：=a[n]=对于[an=a[n-1]，True，an=If[an<1105，an+1，an+1105]，If[twoSquaresR[an]>=n，返回[an]]；a[1]=2；表格[打印[a[n]]；a[n]，{n，1,30}](*Jean-François Alcover公司2012年6月22日*）
nn=10^6；t2=表[0，{nn}]；n2=楼层[Sqrt[nn]]；做[r=a^2+b^2；如果[r<=nn，t2[[r]]++]，{a，n2}，{b，a，n2]；t={}；n=1；而[a=位置[t2，_？（#>=n&），1，1]；a！={}，附加到[t，a[[1，1]]]；n++]；吨(*T.D.诺伊2012年6月22日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,美好的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
