%I#6 2012年3月31日10:22:18

%S 21、69、77、84、93133165189205213221237253285301308309，

%电话：336341357372413429437453469501517525532581589597621，

%电话：6456606696937741749756789805820837852861869884893917

%N个非平方正整数N，使得二次域Q（sqrt（d））的基本单位具有范数1，并且基本单位两部分中的最小值1不是整数。

%C出现在A087643中而不是A194366中的编号。

%t cr＝{}；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日