|
| |
|
|
A010340
|
|
Sum of terms in period of continued fraction for sqrt(n).
|
|
7
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| The entry for a perfect square is 0.
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
|
|
|
MATHEMATICA
| f[n_] := If[ IntegerQ[ Sqrt[n]], 0, Apply[ Plus, Last[ ContinuedFraction[ Sqrt[n]]]]]; Table[ f[n], {n, 1, 100} ]
|
|
|
CROSSREFS
| Sequence in context: A193331 A091246 A133637 * A049275 A121598 A140326
Adjacent sequences: A010337 A010338 A010339 * A010341 A010342 A010343
|
|
|
KEYWORD
| nonn,nice
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Walter Gilbert
|
| |
|
|
