A185185 Indices of record values in A177413.

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

Offset

1,3

Links

Table of n, a(n) for n=1..14.

Eric Weisstein's World of Mathematics, Dottie Number.

Formula

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

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

Crossrefs

Cf. A184952, A177413, A003957.

Sequence in context: A143085 A304756 A005227 * A234019 A279188 A108439

Adjacent sequences: A185182 A185183 A185184 * A185186 A185187 A185188

Keyword

nonn,hard,more

Author

Ben Branman, Dec 22 2011

Extensions

Offset changed by Andrew Howroyd, Aug 10 2024

Status

approved