A065114 Sum of terms in the period of continued fraction for sqrt(n) (A010340) is a square.

5, 11, 24, 29, 31, 34, 39, 41, 56, 61, 65, 79, 88, 97, 104, 114, 136, 146, 151, 153, 168, 218, 230, 264, 269, 281, 287, 306, 311, 325, 391, 424, 445, 447, 459, 466, 482, 491, 494, 509, 522, 560, 563, 579, 586, 624, 637, 659, 667, 698, 712, 714, 716, 731, 791

Offset: 1

Author

Robert G. Wilson v, Nov 12 2001

Keywords

• nonn

Programs

Mathematica

Do[ If[ !IntegerQ[ Sqrt[n]] && IntegerQ[ Sqrt[ Apply[ Plus, Last[ ContinuedFraction[ Sqrt[ n]]]]]], Print[n]], {n, 1, 1000} ]