|
Search: id:A031402
|
|
|
| A031402 |
|
Sum of terms in period of continued fraction for sqrt(a(n)) increases. |
|
+0
2
|
|
| 2, 3, 5, 6, 7, 11, 13, 18, 19, 22, 31, 43, 46, 61, 67, 94, 109, 127, 139, 151, 166, 199, 211, 214, 271, 301, 331, 379, 454, 526, 571, 631, 694, 739, 751, 859, 886, 919, 991, 1279, 1291, 1366, 1549, 1579, 1621, 1726, 1831, 1894, 1999, 2011, 2206
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Least k such that the sum of terms in period of continued fraction for sqrt(k) exceeds that for all j's < k.
|
|
MATHEMATICA
|
f[n_] := If[IntegerQ[Sqrt[n]], 0, Apply[ Plus, Last[ ContinuedFraction[ Sqrt[n]]]]]; a = 0; Do[ b = f[n]; If[b > a, a = b; Print[n]], {n, 1, 1000} ]
|
|
CROSSREFS
|
Cf. A031403, A010340.
Sequence in context: A166070 A053813 A116974 this_sequence A019438 A023798 A062084
Adjacent sequences: A031399 A031400 A031401 this_sequence A031403 A031404 A031405
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
Search completed in 0.002 seconds
|
