|
|
A031546
|
|
that the continued fraction for sqrt(k) has even period and if the last term of the periodic part is deleted the central term is 48.
|
|
0
|
|
|
2306, 2322, 2326, 2338, 2342, 2354, 2358, 2374, 2386, 2406, 2414, 2434, 2446, 2462, 2498, 5187, 5223, 5241, 5262, 5268, 5277, 5349, 5361, 5367, 5403, 5433, 5469, 5493, 5529, 5541, 5556, 5577, 5583, 5601, 5613, 5622, 9220, 9236, 9244, 9260, 9276, 9332
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf48Q[n_]:=Module[{c=Sqrt[n], cf, len}, cf=If[IntegerQ[c], 1, ContinuedFraction[ c][[2]]]; len=Length[cf]; EvenQ[ len]&&cf[[len/2]] == 48]; Select[ Range[ 10000], cf48Q] (* Harvey P. Dale, Jan 14 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|