A184952 High water marks in A177413.

0, 1, 2, 4, 40, 52, 82, 4839, 5813, 8366, 11153, 46254, 1040968, 12925493

Offset: 1

Author

Ben Branman, Dec 21 2011

Keywords

• nonn
• hard
• more

Comments

12925493 does not appear in A177413 until n=292558.

Examples

			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...
		

Links

• Eric Weisstein's World of Mathematics, Dottie Number

Crossrefs

Cf. A003957, A177413, A185185.

Programs

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]}]];

Extensions

Offset changed by Andrew Howroyd, Aug 10 2024