OFFSET
1,1
COMMENTS
"Central term" means the term at 1/2 the length of the period. - Harvey P. Dale, Dec 27 2011
MATHEMATICA
cfevQ[n_]:=Module[{sr=Sqrt[n], cf, tr, len}, cf=ContinuedFraction[sr]; tr = !IntegerQ[sr]; len=If[tr, Length[cf[[2]]], 1]; tr&&EvenQ[len]&&cf[[2]][[len/2]]==25]; Select[Range[11000], cfevQ2] (* Harvey P. Dale, Dec 27 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved