OFFSET
1,1
MATHEMATICA
epct15Q[n_]:=Module[{s=Sqrt[n], cf}, cf=If[IntegerQ[s], {1}, ContinuedFraction[ s][[2]]]; EvenQ[Length[cf]]&&cf[[Length[cf]/2]] ==15]; Select[Range[6200], epct15Q] (* Harvey P. Dale, May 30 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved