|
抵消
|
0,3
|
|
评论
|
推测为非负整数的置换。
|
|
链接
|
|
|
MAPLE公司
|
N: =1000:#上升到第一项>N
B: =矢量(N):
a[0]:=0:
发现:=真:
对于1中的n,当找到do时
已找到:=错误:
对于地板上的k(sqrt(a[n-1]))+1 do
b: =k^2-a[n-1];
如果b>N,则a[N]:=b;破译fi;
如果B[B]=0,则
发现:=true;
a[n]:=b;
B[B]:=1;
打破
fi(菲涅耳)
日
日期:
|
|
数学
|
a[0]=b[0]=0;lst={0};对于[n=1,n<250,n++,对于[s=Ceiling[Sqrt[a[n-1]],MemberQ[lst,s^2-a[n-2],s++,Null];b[a[n]=s^2-a[n-1]]=n;附录[lst,a[n]]];表[a[n],{n,0,100}]
(*第二个节目:*)
lst={};f[s_List]:=块[{k=1,l=s[[-1]]},而[MemberQ[s,k]||!整数Q@Sqrt[k+l],k++];附录[lst,k]];嵌套[f,lst,100](*罗伯特·威尔逊v2010年5月9日*)
|
|
黄体脂酮素
|
(PARI)我的(v=列表(0),vs=vecsort(Vec(v)),n=1);while(n<50,if(issquare(v[#v]+n)&!)!vecsearch(vs,n),listput(v,n);vs=vecsort(Vec(v));n=0);n++);车辆(v)\\德里克·奥尔2015年6月1日;编辑人米歇尔·马库斯2022年1月4日
|
|
交叉参考
|
|
|
关键词
|
非n,容易的,美好的
|
|
作者
|
|
|
状态
|
经核准的
|