%I A010340
%S A010340 0,2,3,0,4,6,7,5,0,6,9,8,10,10,7,0,8,12,17,10,14,18,13,9,0,10,15,
%T A010340 18,16,12,25,13,14,16,11,0,12,18,16,15,16,14,29,20,20,34,19,13,0,14,
%U A010340 21,26,22,26,20,16,22,20,27,18
%N A010340 Sum of terms in period of continued fraction for sqrt(n).
%C A010340 The entry for a perfect square is 0.
%H A010340 T. D. Noe, <a href="b010340.txt">Table of n, a(n) for n=1..1000</a>
%t A010340 f[n_] := If[ IntegerQ[ Sqrt[n]], 0, Apply[ Plus, Last[ ContinuedFraction[ 
               Sqrt[n]]]]]; Table[ f[n], {n, 1, 100} ]
%Y A010340 Sequence in context: A100112 A091246 A133637 this_sequence A049275 A121598 
               A140326
%Y A010340 Adjacent sequences: A010337 A010338 A010339 this_sequence A010341 A010342 
               A010343
%K A010340 nonn,nice
%O A010340 1,2
%A A010340 N. J. A. Sloane (njas(AT)research.att.com), Walter Gilbert