

A031668


Numbers k such that the continued fraction for sqrt(k) has odd period and if the last term of the periodic part is deleted the two central terms are both 80.


0



40829, 132577, 195485, 197257, 362629, 365041, 466778, 473633, 584057, 587117, 590185, 850613, 852458, 1002626, 1006634, 1014674, 1016689, 1018706, 1024769, 1184473, 1188829, 1351085, 1360397, 1365065, 1374425, 1541042, 1548497
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



MATHEMATICA

cf80Q[n_]:=Module[{s=Sqrt[n], cf, len}, cf=If[IntegerQ[s], {0, 0}, ContinuedFraction[s][[2]]]; len=Length[cf]; OddQ[len]&&cf[[Floor[len/2]]]==cf[[Ceiling[len/2]]]==80]; Select[Range[155*10^4], cf80Q] (* Harvey P. Dale, Jul 24 2022 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



