|
|
A197171
|
|
Values k such that singular quadratic unity of Q(k) have gcd(k,y) = 2.
|
|
1
|
|
|
6, 14, 22, 30, 34, 38, 42, 54, 56, 62, 66, 86, 94, 102, 110, 118, 126, 132, 134, 138, 142, 146, 150, 156, 158, 166, 174, 178, 182, 186, 190, 194, 198, 206, 210, 214, 220, 222, 228, 230, 246, 254, 258, 262, 270, 278, 282, 286, 294, 302, 306, 310, 322, 326
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
Conjecture: This sequence is infinite.
|
|
LINKS
|
|
|
MATHEMATICA
|
cr = {}; ck = {}; Do[If[IntegerQ[Sqrt[n]], , kk = NumberFieldFundamentalUnits[Sqrt[n]]; d1 = kk[[1]][[2]][[1]]; d2 = kk[[1]][[1]] kk[[1]][[2]][[2]]; d4 = Numerator[d2/Sqrt[n]]; If[GCD[d4, n] == 1, , AppendTo[ck, GCD[d4, n]]; AppendTo[cr, n]]], {n, 2, 200000}]; aa = {}; Do[If[ck[[n]] == 2, AppendTo[aa, cr[[n]]]], {n, 1, Length[cr]}]; aa
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|