OFFSET
1,1
MATHEMATICA
p49Q[n_]:=Module[{sq=Sqrt[n]}, !IntegerQ[sq]&&Count[ ContinuedFraction[ sq][[2]], 1]==49]; Select[Range[150000], p49Q] (* Harvey P. Dale, Aug 29 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved