OFFSET
1,3
COMMENTS
12925493 does not appear in A177413 until n=292558.
LINKS
Eric Weisstein's World of Mathematics, Dottie Number
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
KEYWORD
nonn,hard,more
AUTHOR
Ben Branman, Dec 21 2011
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 10 2024
STATUS
approved