A206580 Number of ones in the periodic part of the continued fraction of sqrt(n) for n in A206579.

0, 1, 3, 4, 6, 8, 10, 12, 18, 20, 24, 26, 30, 42, 46, 50, 52, 56, 60, 70, 72, 74, 78, 86, 92, 98, 102, 106, 112, 116, 124, 128, 132, 136, 156, 158, 170, 178, 188, 192, 196, 202, 204, 212, 236, 242, 250, 266, 272, 274, 276, 278, 286, 292, 294, 312, 318

Offset

1,3

Links

Table of n, a(n) for n=1..57.

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][[2]]

Crossrefs

Sequence in context: A071259 A231405 A092137 * A291899 A059608 A088071

Adjacent sequences: A206577 A206578 A206579 * A206581 A206582 A206583

Keyword

nonn

Author

T. D. Noe, Feb 29 2012

Status

approved