%I#6 2012年3月31日10:22:18
%S 21、69、77、84、93133165189205213221237253285301308309,
%电话:336341357372413429437453469501517525532581859597621,
%电话:6456606696937741749756789805820837852861869884893917
%N个非平方正整数N,使得二次域Q(sqrt(d))的基本单位具有范数1,并且基本单位两部分中的最小值1不是整数。
%C出现在A087643中而不是A194366中的编号。
%tcr={};Do[If[IntegerQ[Sqrt[n]],kk=NumberFieldFundamentalUnits[Sqrt[n]';d1=kk[1]][2][[1];d2=kk[[1]][1]kk[[1]][2]][2];d3=展开[(d1+d2)(d1-d2)];如果[d3==1,k1=Max[d1],Denominator[d2];如果[k1==1,附加到[cr,n]]],{n,2,2000}];铬
%Y参考A087643、A172000、A194366、A197115。
%K nonn公司
%O 1,1号机组
%A_Artur Jasinski,2011年10月10日
|