login
Indices of record values in A177413.
1

%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