A010340 Sum of terms in period of continued fraction for sqrt(n).

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, 18, 16, 12, 25, 13, 14, 16, 11, 0, 12, 18, 16, 15, 16, 14, 29, 20, 20, 34, 19, 13, 0, 14, 21, 26, 22, 26, 20, 16, 22, 20, 27, 18

Offset: 1

Author

N. J. A. Sloane, Walter Gilbert

Keywords

• nonn
• nice

Comments

The entry for a perfect square is 0.

Links

• T. D. Noe, Table of n, a(n) for n=1..1000

Programs

Mathematica

f[n_] := If[ IntegerQ[ Sqrt[n]], 0, Apply[ Plus, Last[ ContinuedFraction[ Sqrt[n]]]]]; Table[ f[n], {n, 1, 100} ]