A065115 Least k such that the sum of terms in period of continued fraction for sqrt(k) is n.

2, 3, 5, 8, 6, 7, 12, 11, 13, 35, 18, 23, 21, 27, 29, 19, 22, 47, 44, 51, 53, 96, 66, 31, 52, 59, 85, 43, 73, 115, 108, 71, 46, 107, 61, 167, 86, 171, 76, 67, 129, 223, 178, 131, 158, 303, 162, 287, 134, 103, 205, 267, 94, 359, 242, 363, 109, 243, 236, 439, 157, 127

Offset

2,1

Links

Table of n, a(n) for n=2..63.

Mathematica

a = Table[0, {100} ]; Do[ If[ a[[f[n]]] == 0, a[[f[n]]] = n], {n, 101, 1000} ]; a

Crossrefs

Cf. A010340.

Sequence in context: A284188 A011158 A104647 * A262263 A072987 A010075

Adjacent sequences: A065112 A065113 A065114 * A065116 A065117 A065118

Keyword

nonn

Author

Robert G. Wilson v, Nov 12 2001

Status

approved