%I #20 Aug 10 2024 22:33:30
%S 0,1,2,4,6,19,29,53,2035,3995,5328,10141,14675,292557
%N Indices of record values in A177413.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DottieNumber.html">Dottie Number</a>.
%F A177413(a(n)) = A184952(n).
%t z = x /. FindRoot[x == Cos[x], {x, 0},
%t WorkingPrecision -> 1000000]; 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]}]]; p =
%t FixedPoint[g, DeleteDuplicates[data]]; Flatten[
%t Map[Position[data, #, 1, 1] &, p, {1}]]-1
%Y Cf. A184952, A177413, A003957.
%K nonn,hard,more
%O 1,3
%A _Ben Branman_, Dec 22 2011
%E Offset changed by _Andrew Howroyd_, Aug 10 2024