A185185 Indices of record values in A177413.

0, 1, 2, 4, 6, 19, 29, 53, 2035, 3995, 5328, 10141, 14675, 292557

Offset: 1

Author

Ben Branman, Dec 22 2011

Keywords

• nonn
• hard
• more

Links

• Eric Weisstein's World of Mathematics, Dottie Number.

Crossrefs

Cf. A184952, A177413, A003957.

Programs

Mathematica

z = x /. FindRoot[x == Cos[x], {x, 0},
   WorkingPrecision -> 1000000]; data = ContinuedFraction[z];
g[list_] :=
Delete[list,
  Transpose[{DeleteCases[
     Table[If[list[[n]] < list[[n - 1]], n, no], {n, 2,
       Length[list]}], no]}]]; p =
FixedPoint[g, DeleteDuplicates[data]]; Flatten[
Map[Position[data, #, 1, 1] &, p, {1}]]-1

Formula

A177413(a(n)) = A184952(n).

Extensions

Offset changed by Andrew Howroyd, Aug 10 2024