|
|
A206580
|
|
Number of ones in the periodic part of the continued fraction of sqrt(n) for n in A206579.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
|