|
| |
|
|
A184952
|
|
High water marks in A177413
|
|
1
|
|
|
|
0, 1, 2, 4, 40, 52, 82, 4839, 5813, 8366, 11153, 46254, 1040968, 12925493
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
COMMENTS
|
12925493 does not appear in A177413 until n=292558.
|
|
|
LINKS
|
Table of n, a(n) for n=0..13.
http://mathworld.wolfram.com/DottieNumber.html
|
|
|
EXAMPLE
|
The first few terms of the continued fraction of the Dottie number are
0, 1, 2, 1, 4, 1, 40
of which the high water marks are 0,1,2,4,40...
|
|
|
MATHEMATICA
|
z = x /. FindRoot[x == Cos[x], {x, 0},
WorkingPrecision -> 100000]; data = ContinuedFraction[z];
g[list_] :=
Delete[list,
Transpose[{DeleteCases[
Table[If[list[[n]] < list[[n - 1]], n, no], {n, 2,
Length[list]}], no]}]];
|
|
|
CROSSREFS
|
Cf. A177413, A003957
Sequence in context: A098625 A057777 A139735 * A098337 A187468 A158213
Adjacent sequences: A184949 A184950 A184951 * A184953 A184954 A184955
|
|
|
KEYWORD
|
nonn,cofr,hard,more
|
|
|
AUTHOR
|
Ben Branman, Dec 21 2011
|
|
|
STATUS
|
approved
|
| |
|
|
