A185185 Indices of record values in A177413.
0, 1, 2, 4, 6, 19, 29, 53, 2035, 3995, 5328, 10141, 14675, 292557
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Dottie Number.
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
Extensions
Offset changed by Andrew Howroyd, Aug 10 2024