OFFSET
1,1
COMMENTS
The number 1 is the most common number in continued fractions of sqrt(k) for k = 1, 2, 3, ....
Most of the terms in this sequence are the product of a prime and a power of 2. There are only three exceptions less than 10^6: 133, 253621, and 375181.
EXAMPLE
The periodic part of the continued fraction of sqrt(7) is (1, 1, 1, 4), which has more ones than any smaller square root.
MATHEMATICA
t = {{2, 0}}; Do[If[! IntegerQ[Sqrt[k]], cnt = Count[ContinuedFraction[Sqrt[k]][[2]], 1]; If[cnt > t[[-1, 2]], AppendTo[t, {k, cnt}]]], {k, 3, 50000}]; Transpose[t][[1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 29 2012
STATUS
approved