Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #19 Aug 10 2024 22:33:35
%S 0,1,2,4,40,52,82,4839,5813,8366,11153,46254,1040968,12925493
%N High water marks in A177413
%C 12925493 does not appear in A177413 until n=292558.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DottieNumber.html">Dottie Number</a>
%e 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...
%t z = x /. FindRoot[x == Cos[x], {x, 0},
%t WorkingPrecision -> 100000]; data = ContinuedFraction[z];
%t g[list_] :=
%t Delete[list,
%t Transpose[{DeleteCases[
%t Table[If[list[[n]] < list[[n - 1]], n, no], {n, 2,
%t Length[list]}], no]}]];
%Y Cf. A003957, A177413, A185185.
%K nonn,hard,more
%O 1,3
%A _Ben Branman_, Dec 21 2011
%E Offset changed by _Andrew Howroyd_, Aug 10 2024