This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A184952 #22 Jun 02 2025 03:54:07
%S A184952 0,1,2,4,40,52,82,4839,5813,8366,11153,46254,1040968,12925493
%N A184952 High water marks in A177413.
%C A184952 12925493 does not appear in A177413 until n=292558.
%H A184952 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DottieNumber.html">Dottie Number</a>
%e A184952 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 A184952 z = x /. FindRoot[x == Cos[x], {x, 0},
%t A184952 WorkingPrecision -> 100000]; data = ContinuedFraction[z];
%t A184952 g[list_] :=
%t A184952 Delete[list,
%t A184952 Transpose[{DeleteCases[
%t A184952 Table[If[list[[n]] < list[[n - 1]], n, no], {n, 2,
%t A184952 Length[list]}], no]}]];
%Y A184952 Cf. A003957, A177413, A185185.
%K A184952 nonn,hard,more
%O A184952 1,3
%A A184952 _Ben Branman_, Dec 21 2011
%E A184952 Offset changed by _Andrew Howroyd_, Aug 10 2024