%I#19 2022年9月9日10:44:29
%S 0,2,5,20,74,901853779861493516516109168683165752393101349,
%电话:10557224188228400400268554114353175129618538655883059565544,
%电话:13305524208754826707017313562835719208571426442858534586950642606372543412033672657850
%N开始记录两个平方和之间的间隙。
%C A001481(i)形式的数字,其差值A001481-A001481-(i)达到记录值,其中i是A001481.中a(n)的索引_Felix Fröhlich,2018年1月9日
%H Charles R Greathouse IV,n表,n=1..43的a(n)</a>
%e20=4^2+2^2和25=5^2+0^2都是两个正方形的和,但21、22、23或24都不是,之前的间隔都不超过25-20=5。
%t块[{s=选择[Range[0,10^6],SquaresR[2,#]!=0&],t},t=差异@s;s[[First@FirstPosition[t,#]]]&/@Union@FoldList[Max,t]](*Michael De Vlieger_,2018年1月9日*)
%o(PARI)是2(f)=(i=if(f[1,1]==2,2,1),#f~,if(位与(f[i,2],1)==1&&位与(f[i,1],3)==3,返回(0));1
%o打印1(r=0);最后=2;forfactored(n=最后+1,10^9,如果(!is 2(n[2]),next);t=n[1]-最后;如果(t>r,r=t;打印1(“,”最后));最后=n[1])
%Y参考A001481、A022544、A357018。
%K nonn公司
%O 1,2号机组
%A _Charles R Greathouse IV_,2017年12月28日
|