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,1

Links

Table of n, a(n) for n=1..55.

Mathematica

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

Crossrefs

Sequence in context: A059455 A373033 A095030 * A309730 A102171 A335153

Adjacent sequences: A065111 A065112 A065113 * A065115 A065116 A065117

Keyword

nonn

Author

Robert G. Wilson v, Nov 12 2001

Status

approved