%I#26 2020年3月30日04:20:45
%序号3,8,1214410208040138603484072918017240323206017576520,
%电话:392792408518488011764998077898408847379201225045140,
%电话:17715634203723878100386989614045742932077623959601248717264014348911860148869409202148495756024137574780
%N数k,使k^2+1=p*q,p和q素数p==q(mod k)。
%C q-p=k,其中k=3,8,144。
%q-p=k的下一项是F(432)=85738…5984和F(570),其中F(n)是第n个斐波那契数。所有这些术语都在A001906中;下一个此类术语(如果存在)的小数位数超过25000_Charles R Greathouse IV,2011年1月21日
%H Jinyuan Wang,<a href=“/A180507/b180507.txt”>n的表,n=1..10000的a(n)</a>
%e a(3)=12,因为12^2+1=5*29和29-5=2*12;
%e a(8)=34840,因为34840^2+1=4289*283009和283009-4289=278720=8*34840。
%p with(numtheory):对于从1到40000的k do:x:=k^2+1:y:=系数集(x):yy:=bigomega(x):if
%p yy=2,irem(y[2],k)=y[1],然后打印f(`%d,`,k):否则fi:od:
%o(PARI)w(m,r)=Vec(x*(1-x)/(1-(m^2+2)*x+x^2)+o(x^r));
%o isok(s,t)=i素数(s)和i素数;
%o列表a(nn)={my(g,k,m=1,r,u=w(1,nn),v=列表([])[i]^2-4))/2;如果(k<g,如果(isok(u[i],m*k),listput(v,k),r=i;break));集合(v);}王进元,2020年3月29日
%A085722的Y子集。
%Y参见A001906、A002496、A005574、A027862、A134406、A13440.7。
%K nonn公司
%O 1,1号机组
%2011年1月20日,拉格瑙市
%E更多条款来自_Charles R Greathouse IV_,2011年1月24日
%E插入缺少的术语和来自金元网的更多术语,2020年3月30日
|