OFFSET
1,1
MATHEMATICA
opct29Q[n_]:=Module[{cf=ContinuedFraction[Sqrt[n]][[2]], len}, len= Length[ cf]; OddQ[len]&&cf[[Floor[len/2]]]==29]; Select[Range[205000], !IntegerQ[Sqrt[#]]&&opct29Q[#]&] (* Harvey P. Dale, Dec 14 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected by Harvey P. Dale, Dec 14 2011
STATUS
approved