1,1

For n=239 the quotient periods are: [[15],[2,5,1,2,4,15,4,2,1,5,2,30]], (1/2)+(1/5)+1+(1/2)+(1/4)+(1/15)+(1/4)+(1/2)+1+(1/5)+(1/2)+(1/30) = 5.

Do[ If[ IntegerQ[ Apply[ Plus, 1/Last[ ContinuedFraction[ Sqrt[n]]]]], Print[n]], {n, 2, 10^5 } ]

Cf. A003285, A010340.

Sequence in context: A164290 A118574 A142854 this_sequence A065750 A056095 A163041

Adjacent sequences: A065095 A065096 A065097 this_sequence A065099 A065100 A065101

nonn,bref

Naohiro Nomoto (n_nomoto(AT)yabumi.com), Nov 12 2001