|
|
A197115
|
|
Nonsquare positive integers k such that the fundamental unit of the quadratic field Q(sqrt(k)) has norm -1 and can be written as x + y*sqrt(d) with integers x, y where d is the squarefree part of k.
|
|
8
|
|
|
2, 8, 10, 17, 18, 26, 32, 37, 40, 41, 50, 58, 65, 68, 72, 73, 74, 82, 89, 90, 97, 98, 101, 104, 106, 113, 122, 128, 130, 137, 145, 148, 153, 160, 162, 164, 170, 185, 193, 197, 200, 202, 218, 226, 232, 233, 234, 241, 242, 250, 257, 260, 265, 269, 272, 274
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This sequence is a subsequence of A172000.
|
|
LINKS
|
|
|
MATHEMATICA
|
cr = {}; Do[If[IntegerQ[Sqrt[n]], , kk = NumberFieldFundamentalUnits[Sqrt[n]]; d1 = kk[[1]][[2]][[1]]; d2 = kk[[1]][[1]] kk[[1]][[2]][[2]]; d3 = Expand[(d1 + d2) (d1 - d2)]; If[d3 == -1, k1 = Max[Denominator[d1], Denominator[d2]]; If[k1 == 1, AppendTo[cr, n]]]], {n, 2, 400}]; cr
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|