

A031550


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 52.


1



2706, 2722, 2734, 2774, 2786, 2798, 2802, 2818, 2838, 2846, 2854, 2866, 2878, 2882, 2894, 2902, 2914, 6087, 6117, 6126, 6132, 6159, 6189, 6213, 6231, 6249, 6261, 6276, 6297, 6321, 6333, 6357, 6369, 6393, 6411, 6414, 6429, 6513, 6537, 6549, 6558, 10820
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



MATHEMATICA

cfQ[n_]:=Module[{sqr=Sqrt[n], c}, If[IntegerQ[sqr], c={1}, c=ContinuedFraction[ sqr][[2]]]; EvenQ[Length[c]]&&c[[Length[c]/2]]==52]; Select[Range[11000], cfQ] (* Harvey P. Dale, Nov 28 2012 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



